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SIX SIMPLE TIPS FOR PROGRAMMERS 

7 

AMAZIN' 

That's what youH say if you get throush this maze. 

For Apple, Atari, Commodore 64, IBM PC, 'n-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

25 

poisoNivy 

Can you set out of a "(Middy" situation before the Poison ivy sets you? 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

42 

WORDSCRAMBU 

A mind-teasins same of mixed-up letters. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

56 

SECRETCODES 
Encode and decode your private correspondence. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

69 

GRAPHIC FANTASY 

Hours of computer-senerated sraphics. 

For ADAM, Apple, Atari, Commodore 64, IBM K, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

79 

WATER BAUX)ONS 

Cool off vfith this wet 'n wild aimins same. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

95 

MONSTER IN THE AAARSH 

Choose the risht path out of the marsh, or else... 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

113 

TEAM BATTING AVERAGE 

Whether your averase is lousy or sreat, this prosram lets you know! 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

123 

THE DRAWING PROGRAM 

Become a computer Vincent >^n Gosh. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

135 

MUSIC RECORDER 

WHte and record sonss on your computer. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

Because of the sound and graphics requirements of some of the programs and the limitations of some computers, not all prosrams are 

translated for all machines. 
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SIAAPLE UPS 
FOR PROGRAMMERS 

Even the most experienced programmers make the most basic errors every once in 
awhile. To help you avoid frustrating mistakes, here are some simple programming 

reminders. 

1. 

When you type program lines into your computer, be sure to copy them exactly as 
written. Numbers, punctuation marks, and spaces are important. 

2. 

Remember to keep the alpha lock (or caps key) down while you're typing in the 

program. 

3. 

Press RETURN or ENTER after every completed program line. 

4. 

Before you run the program, save it. That way you avoid crashing the program if 

you made a typing error. 

5. 

Run the program when you finish typing it in by typing RUN and pressing the RETURN 
or ENTER key. If the computer gives you an error message, don't panic. Mistakes can 
be fixed. List the program by typing the word LIST and pressing the RETURN or ENTER 
key and double-check each line. If there is data, check to make sure you haven't 
typed any extra commas. Make sure you've typed zeros and not the letter "O." A 
foolproof way to correct a mistake is to type in the entire line again (including its line 
number). When you list the program again, you'll find the new line in place of the old. 



6. 



If you need more help, read the programming guide you received v^ith your computer 

It should cover most of your questions. 



PUBUSHED BY SCHOLASTIC INC. 

COPyRIGHT © 1984 BY SCHOLASnC INC. 
AU RIGHTS RESERVED 





10 AWESOME PROGRAMS FROM K-POWER 


BONUS PROGRAM #1 


AMAZIN' 


AhAZIN' is what you'll say, the first time you make it 


through this twistin' majie. The clock tells you your 


score time, so you can compare your score with the best 


score. Watch out for walls! If you collide with a wall, 


you. 


lose. On most computers you have the choice of 


joys 


.tick control , or keyboard control . Select which one 


you 


want at the beginning of the game,, If you use the ' 


keyb 


oard , write the direction keys down on a piece of 


paper and practice usinq them= Pushing direction keys 


will 


get you where you want to go, pronto i 


Apple II and Apple lie 


1 REM *** AMAZIN APPLE ■**■» 


10 


GOTO 3000 


99 


REM **# JOYSTICK ROUTINE «** 


100 


IF PDL (1) < 64 THEN YI = -1.- RETURN 


110 


IF PDL. (1) > 192 THEN YI == Is RETURN 


120 


IF PDL <0) < 64 THEN XI =■= - Is RETURN 


130 


IF PDL (0) > 192 THEN XI = 1: RETURN 


160 


XI == OsYI - Os RETURN 


199 


REM *** READ KEYBOARD ROUTINE **•«• 


200 


XI = OsYI = OsLI =-- 


210 


KE = PEEK ( - 16384)5 POKE - 16368,0 


220 


IF KE < 128 THEN 250 


230 


IF CHR* (KE - 128) =• KT*(LI) THEN YI = YT(LI)sXI = XT(LI)3 RETURN 


240 


LI = LI + Is IF LI < 4 THEN 220 


250 


RETURN 


499 


REM *** MAIN LOOP-DRASW PLAYER CHARACTER #■** 


500 


Xr = OsYI = OsLI = 


510 


CO = 3s RO = OsL = 


520 


TI - V 


530 


IF YI = AND XI = THEN 550 


540 


COLOR= Os PLOT CO - XI,RO - YI 


550 


COLOR= 143 PLOT CO,RO 


560 


IF L = 1 THEN 2000 


. 570 


ON J BOSUB 100,200 


580 


RO =. RO + YIsCO = CO -1- XI 


590 


IF CO > 39 THEN 1000 


600 


IF RO < THEN RO =0 


620 


IF SCRN( CO,RO) = 15 THEN L = 1 


630 


TI = TI + 1 


640 


GOTO. 530 


999 


REM *** SUCCESSFULLY COMPLETE MAZE •*## 


1000 


TEXT s HOME sWH == TI ' 


1010 


FOR T =1 TO 100 


1020 


PRINT "YOU MADE IT! "5 


1040 


NEXT T 


1 060 


IF WH < LS THEN LS ==^ WH 


107C 


HOME 


1 080 


PRINT TAB( 11) "YOUR SCORE ISs "WH 



10 AWESOME PROGRAMS FROM K-PGWER 



1090 PRINT 

1100 PRINT TAB( 10) "THE LOW SCORE IS: "LS 

1110 PRINT 

1120 GOTO 2030 

1999 REM *** RUN INTO WALL *** 

2000 TEXT s HOME 

2010 PRINT TAB( 6) "YOU RAN INTO A WALL!" 

2020 PRINT 

2030 PRINT TAB( 6) "PRESS ANY KEY TO PLAY AGAIN" 

2040 IF PEEK ( - 16368) > 127 THEN 2040 

2050 BET DUM* 

2060 RESTORE 

2070 GOTO 3120 

2999 REM *** INTRODUCTION *** 

3000 HOME 

3010 PRINT " ARE YOU USING A JOYSTICK (Y/N)?" 

3030 IF J* = "Y" THEN J = 1: GOTO 3120 

3040 IF J* < > "Y" THEN J = 2 

3050 HOME 

3060 PRINT "THE DIRECTION KEYS ARE: " 

3070 PRINT 

3080 PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 

3090 PRINT 

3100 PRINT "PLEASE PRESS ANY KEY TO BEGIN. " 

3110 GET N* 

3115 DIM KT*(3) ,XT(3) ,YT<3) 

,3119 REM *** INITIALIZE VARIABLES **» 

3120 GR s POKE ~ 16302,0: CALL - 1998: LS = 400 

3130 COLOR= 15 

3139 REM •*** DRAW MAZE *** 

3140 FOR RO = 1 TO 47 
3150 READ X1,X2,Y 
3160 HLIN XI, X2 AT Y 
3170 NEXT RO 

3180 FOR CO = 1 TO 45 

3190 READ Y1,Y2,X 

3200 VLIN Y1,Y2 AT X 

3210 NEXT CO 

3220 FOR IN = 1 TO 44 

3230 KOL = INT < RND (1) * 15) + Is IF KOL = 15 THEN 3230 

3240 COLOR= KOL 

3250 READ X,Y 

3260 PLOT X,Y 

3270 NEXT IN 

3279 REM *** INITIALIZE DIRECTION VARIABLES *** 

3290 FOR I = TO 3: READ KT* < I ) s NEXT 

3300 FOR I = O TO 3s READ XT(I)s NEXT 

3310 FOR I = O TO 3: READ YT ( I ) : NEXT 

3320 GOTO 500 

5000 DATA 5,39,0, 35 ,39,1,35,39,2,5,1 O , 3 , 35 , 39 , 3 

5010 DATA 30,33,5,0, 13,8,0,6,9,32,39,9,35,39, 10,9, 13, 1 1 ,30," 

5020 DATA 4, 11, 15, 4, 11, 16, 4, 11, IS, 4, 11, 19, 13^ 16, 19, 23, 25, 19 

5030 DATA 23,25,20,29,39,20,29,39,21,27,39,22,5,9,23 

5040 DATA 27 , 39 , 23 , 25 , 30 , 24 , 25 , 30 , 25 , , 7 , 26 , 9 , 1 1 , 26 

5050 DATA 0,7,27,9,11,27,19,30,28,34,36,28,34,36,29 

5060 DATA 4 , 1 1 , 30 , 1 7 , 34 , 32 , 1 7 , 34 , 33 , 4 , 6 , 34 , 8 , 1 , 34 

5070 DATA 37 , 39 , 36 , 4 , 6 , 40 , 8 , 27 , 40 , 4 , 6 , 4 1 , 8 , 27 , 4 1 , 33 , 36 , 4 1 

5080 DATA 33 , 36 , 42 , 4 , 27 , 44 , , 39 , 47 

5090 DATA 0,47,0,0,7,1,15,19,4,35,39,4,0,2,5,15,19,5 




5100 


5110 


5120 


5130 


5140 


5150 


5160 


5170 


5180 


5190 


5200 


5210 


5220 



Atari 

1 REM *** AMAZIM 
10 GOTO 3000 

99 REM *#* JOYSTICK ROUTINE »•«•* 

100 JV=STICK<0) 

110 IF JV=14 THEN XI=Oj YI=-~1 f RETURN 

120 IF JV=13 THEN X 1=05 YI^^l s RETURN 

130 IF JV=li THEN X I =- 1 ; YI=0;. RETURN 

140 IF jy==7 THEN' X 1 = 1 5 YI=0s RETURN 

150 XI=0sYI=p 

160 RETURN 

199 REM *** READ KEYBOARD ROUTINE *** 

200 XI--=--Oi'YI=0 
210 K=^PEEK(764) 
220 FOR D^l TO 15 
230 NEXT D 

240 IF K--=--255 THEN 210 

250 IF K=13 THEN X I =0s YI=^=--i s RETURN 

260 IF K^--=37 THEN XI==0; YI-=1 ; RETURN 

270 IF K=l THEN XI— 1 s YI-Os RETURN 

280 IF K=^0 THEN X 1 = 1 sYI=Os RETURN 

499 REM **« MAIN LOOP-DRAW PLAYER CHARACTER, *** 

500 Hi=--2sH2--0 
510 CQ=2 

520 L=0 

530 RQ=-0 

540 COLOR 

550 PLOT H1,H2 

560 COLOR 2 

570 PLOT CO.RO 

580 IF L==l THEN 2000 

590 Hl==C0sH2=R0;TI--=TI + l 

600 ON J GOSUB 100,200 

6 1 RQ^:RO-i" Y I s CO=CO-i- X I 

620 IF C0>39 THEN 1000 

630 IF R0<0 THEN R0=0 

640 LOCATE C0,R0,C 

650 IF C=l THEN L=i 

660 POKE 752,6 

670 PRINT CHR$(125) 

680 PRINT TI 

690 FOR T=i TO 30 

700 NEXT T 

7i0 PRINT 
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720 GOTO 540 

999 REM #** SUCCESSFULLY COMPLETE MAZE *** 

1000 GRAPHICS 
1010 FOR T=i TO 100 

1020 PRINT "YOU MADE IT! "; 

1030 NEXT T 

1040 PRINT CHR*<125) 

1050 PRINT "YOUR SCORE ISs ";TI 

1060 IF TKLS THEN LS=TI 

1070 PRINT 

1080 F'RINT "LOW SCORE ISs "5LS 

1090 PRINT 

1100 GOTO 2030 

1999 REM *** RUN INTO WALL *** 

2000 GRAPHICS 

2010 PRINT "YOU RAN INTO A WALL!" 

2020 PRINT 

2030 PRINT "PRESS (RETURN) TO PLAY AGAIN. " 

204O GOSUE-! 4000 

2050 RESTORE 

2060 GOTO 3180 

2999 REM *** INTRODUCTION *** 

3000 DIM J#(3),Rf(3) 
3010 PRINT CHR*(125) 

3020 PRINT "TYPE YOUR ANSWER" 

3030 PRINT "THEN PRESS (RETURN)." 

3040 PRINT 

3050 F'RINT "ARE YOU USING A JOYSTICK (Y/N)"; 

3060 INPUT J$ 

3070 IF J$="Y" OR J;!-=:^"YES" THEN J=l 

3080 IF J --••=! THEN 3150 

3090 J"2 

3100 PRINT CHR*(125) 

3110 PRINT "THE DIRECTION KEYS AREs " 

3120 PRINT 

3130 PRINT "I=UP M=--=DOWN J=LEFT L=RIGHT" 

3140 PRINT 

3150 PRINT "PLEASE PRESS (RETURN) TO BEGIN," 

3160 6QSUB 4000 

3169 REM *** INITIALIZE VARIABLES *** 

3170 LS==999 
3180 TI=0 

3190 GRAPHICS 3 
3200 SETCOLOR 0,0,8 
3210 COLOR 1 
3220 FiEAD A,B,C,D 
3230 IF A==-— 1 THEN 500 
3240 PLOT A , B 
3250 DRAWTO C,D 
3260 GOTO 3220 

3999 REM *#* WAIT ROUTINE *** 

4000 POKE 764,255 
4010 K=PEEK(764) 

4020 IF K=-255 THEN 4010 

4030 RETURN 

5000 DATA 0,0,0,19,4,0,39,0,9,1,9,14,16,1,16,5 

50 1 DATA 25 ,1,25,4 , 30 , 1 , 30 , 3 ,34 ,1,34,3 

5020 DATA 4,3,6,3,4,3,4,11 , IS, 3, 18,5 ,21 , 3,21 ,6,28,3,28,6,39,3,39, 19, 

4 1 '? 9 "';';• A T'7 7 
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5030 DATA 37,3,37,10,38,3,33,3,9,5,10,5,14,5,14,5,23,5,23, 


,5,7,6,8,6,2,7 


,4,7 




5040 DATA 20,7,20,12,24,7,37,7,24,7,24,11 




5050 DATA 30 , 8 , 30 , 8 , 7 , 9 , 7 , 14 , 9 , 9,9 , 14 , 12 , 9 , 17 , 9,. 18 , 9 , 18 , 9. 
9 '?"'; 9 


19,8,19,9,23, 


5060 DATA 32 , 9 , 32 , 9 , 1 , 10 , 2 , 10 , 18 , 10 , 19 , 10 , 23 , 10 , 28 , 10 




5070 DATA 19 , 1 1 , 19 , 1 1 , 27 , 1 1 ,27 , 16 , 27 , 1 1 , 34 , 1 1 , 34 , 1 1 , 34 , 15 . 


,12,12,16,12, 


3,13,3,13,4,13,4,14 




5080 DATA 21 , 13 , 21 , 13 , 4 , 14 , 7 , 14 , 9 , 14 , 18 , 14 , 21 , 14 , 24 , 14 , 24 . 


,15,24,15 


5090 DATA 30 , 14 ,32 , 14 , 32 , 14 , 32 , IS , 36 , 14 , 36 , 15 , 4 , 16 , 27 , 16 , 35 , 16 „ 35 , 16 


5100 DATA 0,19,39,19 




5110 DATA ~1,-1,--1,--1 




tommodore 64 




1 REM ♦** ftMAZIN' 64 *♦♦ 




10 GOTO 3000 




99 REM **♦ JOYSTICK ROUTINE ♦*# 




100 JV=PEEK (56321) 




110 JV=15-(JVAND15) 




1£0 IF JV=1 THEN XI=0sYI=-i: RETURN 




130 IF JV=£ THEN XI=0 5YI=1 : RETURN 




140 IF JV=4 THEN XI=-1 :YI=0: RETURN 




150 IF JV=8 THEN XI=1 sYI=0s RETURN 




160 XI=0:YI=0: RETURN 




199 REM *♦* READ KEYBOARD ROUTINE *♦♦ 




£00 XI=0:YI=0!LI=0 




£10 GET KE*:IF KE*=""THEN RETURN 




££0 IF KE*=KT*(LI)THEN YI=YT (LI) s XI=XT (LI ) :RETURN 




£30 LI=LI + 1:IF LK4 THEN ££0 




£40 RETURN 




499 REM *** MfilN LOOP-DRAW PLAYER CHARACTER *** 




500 H1=3:H£=0 




510 CO=3:RO=0:L=0 




5£0 T I $="000000 " 




530 IF C0>39 THEN 1000 




540 IF RO<0 THEN RO=0 




550 POKE CB+H1+40*H£, £ 




560 POKE CB+CO+40*RO, 




570 POKE SB+CO+40*RO, 81 




580 IF L=i THEN £000 




590 Hl=COsH£=RO 




600 ON J 60SUB 100, £00 




610 R0=R0+Yl5C0=C0+XI 




6£0 IF PEEK (BB+CO+40*RO) =160 THEN L=i 




630 PRINT CHR*(i9)CHR*(i5g)TAB(36)RIGHT*(TI*, 3) 




640 GOTO 530 




999 REM *** SUCCESSFULLY COMPLETED MAZE *** 




1000 PRINT CHR$(147) :WH*=TI* 


, 


1010 FOR T=l TO 100 




10£0 PRINT" YOU MADE IT! "§ 




1030 POKE 53£80, INT(RND(1)*16)+1 




1040 NEXT T 




1050 POKE 53£ai,3 




1060 IF VAL (RIGHT* (WH*, 3) ) <VAL<LS*) THEN LS*=RIGHT* (WH*, 3) 




1070 PRINT CHR*(147)CHR$(144) 




1080 PRINT TAB(11)"Y0UR SCORE IS: "RIGHT* (WH*, 3) 




1090 PRINT 




1100 PRINT TAB (10) "THE LOW SCORE IS:"LS* 




iil0 PRINT 
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1120 
1999 

£000 
2010 

2020 
2030 
2040 
2050 
2060 
2070 
2999 

3000 
3010 

3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 

3100 

3110 
3119 
3120 
3130 
3139 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
32G0 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3439 
3440 



TO PLAY AGAIN. 



2060 



GOTO 2030 

REM *** RAN INTO WALL *** 

PRINT CHR*<147)CHR*(144) 

PRINTTflB<10)"YOU RAN INTO A WALL! 

PRINT 

PRINTTAB(6)"PReSS (SHIFT) 

GOSUB 4000 

RESTORE 

GET DUM*:IF DUM*<>""THEN 

GOTO 3120 

REM *** INTRODUCTION *** 

PRINT CHR*(147) 

PRINT " ARE YOU USING A JOYSTICK (Y/N) ?" 

GET J*: IF J*=""THEN 3020 

IF J*="Y" THEN J=1:G0T0 3120 

IF J*=<> "Y" THEN J=2 

PRINT CHR«(147) 

"THE DIRECTION KEYS 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 



ARE: 



"I=UP M=DOWN J=LEFT L=RIGHT' 



"PLEASE PRESS (SHIFT) TO BEGIN." 

4000 

REM **♦ INITIALIZE VARIABLES »** 

SB= 1 024 : CB=55296 : LS*= " 200 " 

POKE 53280,6:POKE 53281, 2:P0KE 650,128 

REM ♦** DRAW MAZE *♦* 

PRINT CHR*(147) 

READ CO, A, B 

IF C0=-1 THEN 3220 

FOR RO=A TO B 

POKE SB+CO+40*RO, 160 

POKE CB+CQ+40*RO, 1 

NEXT RO . 

GOTO 3150 

READ RO, A, B 

IF R0=-1 THEN 3290 

FOR CO=A TO B 

POKE SB+CO+40*RO, 160 

CB+CO+40*RO, 1 

CO 

3220 

RO, A,B 

THEN 3380 
TO B 



POKE 

NEXT 

GOTO 

READ 

IF R0=-1 

FOR C0=A 

Q=INf (RND(1)*16)+1 

IF Q<3 OR Q>7 THEN 3320 

POKE SB+CO+40*RO,81 

CB+CO+40*RO, Q 

CO 

3290 

RO, CO, CH 

1 THEN 3440 



POKE 

NEXT 

GOTO 

READ 

IF RQ=- 

POKE 

POKE CB+CO+40*RO, 158 

PRINT CHR*(144) 

GOTO 3380 

REM *♦♦ INITIALIZE DIRECTION ARRAYS *** 

FOR 1=0 TO 3sREAD KT$(i):N£XT 



SB+CO+40*RO, CH 
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3450 


FOR ] 


>0 TO 3sREAD XT(I>:NEXT 




3460 


FOR I 


.i=0 TO 3: READ YT(I):NEXT 




3470 


GOTO 


500 




3999 


REM *** WAIT ROUTINE **♦ 




4000 


WAIT 


653, 1 




4010 


WAIT 


653, 1 , 1 




4020 


RETURN 




5000 


DATA 


0, 0, 24, 1 , 0, 6, 4, 18, 20, 5, 0, 2, 5, 18, 20 




5010 


DATA 


6,0,2,6,18,20,7,0,2,8,1,2,8,7,10,8,18,20 




5020 


DATA 


9, 14, 14,9, 1,2,9,7, 10,9, 18,20,10,7, 10,10,13, 14 




5030 


DATA 


10, 18, 20, 12, 10, 20, 13, 3, 5, 13, 14, 15 




5040 


DATA 


14,3,5, 16, 14, 16, 17,0,7,21,4,7,25,0,8,27, 11, 13 




5050 


DATA 


27, 17, 18, 28, 10, 13, 29, 2, 6, 29, 9, 13 




5060 


DATA 


30, 9, 13, 31, 17, 22, 34, 14, 16, 34, 18, 21, 36, 4, 10 




5070 


DATA 


39,0,1,39,3,24,-1,-1,-1 




5080 


DATA 


0, 5, 39, 1, 5, 7, 1, 35, 39, 2, 5, 7, 2, 21, 21, 2, 29, 33 




5090 


DATA 


3,13,14,3,36,39,4,32,35,5,2,11,6,2,4 




5100 


DATA 


6,30,32,7, 11, 12,8, 16, 16,8,20,20,9,4,7 




5110 


DATA 


9, 15, 15, 9, 19, 19, 9, 24, 24, 9, 29, 35, 10, 4, 7 




51£0 


DATA 


10, 13, 14, 10, 18, 18, 10,22,24, 10,28,38, 11, 10, 10 




5130 


DATA 


11, 17, 17, 11,27,30, 12,4,8, 12, l6,16, 12,26,30, 13, 16, 16, 13, 


18,30 


5140 


DATA 


14, 1, 7, 14, 13, 13, 14, 35, 36, 15, 13, 13, 16, 4, 10, 16, 16, 33 




5150 


DATA 


17, 18, 18, 17, 27, 27, 18, 4,6, 18, 8, 10, 18, 18, 18, 18, 38, 38 




5160 


DATA 


18,22,22, 19,4,6, 19,8, 10,19,22,22,20,4,6,20,8, 10 




5170 


DATA 


20,11,27,21,35,36,22,4,27 




5180 


DATA 


24,0,39,-1,-1,-1 




5190 


DATA 


0,36,38, 1,6,8,8,9,9,9,9,9, 11,29,29, 12,28,29, 19,5,5 




5200 


DATA 


19,9,9,4,38,38,5,37,37,6,38,38,7,37,37 




5210 


DATA 


8,38,38,9,37,37,-1,-1,-1 




5220 


DATA 


4, 37, 1, 5, 38, 13, 6, 37, 1,7, 38, 26, 8, 37, 9, 9, 38, 14, -1, -1,-1 




5230 


DATA 


I, J,L,M,0,-1, 1,0,-1, 0,0,1 




IBM PC 






:i,0 F^EiM «•*• 


^- AMHZIM IBM-PC »**•• 




20 K 


:LY OFf 






30 GOTO 5i 


50 




40 R 


£M *** -READ KEYBOPiRD ■»** 




50 L. 


I-Os X1"0j Yl"0 




60 KE:Hi--;i.NKEY-* 




?0 IF KEt- 


-■■-•'" THEN RETURN 




80 IF KE$^ 


-KT :* < l... I ) THEN Y I =YT ( 1.... I ) s X I - X T' ( L. I ) s RETURN 




90 i... 


I =4... I -1- 


1: IF LK.T TITEN 80 




100 


RETURN 




110 


REM «•• 


ss MAIN LOOP - DRAW CHARACTER **« 




1 20 


CO:-=4k! 


"■;0---^l:L-^^=05Hl---=l;H2==4 




1 30 


LOCf-VTi 


=■ H1„H2,0 




140 


PRINT 


CHR*(32.); 




1 50 


LOCATE ROhCO,0 




1 60 


PRINT 


CHR*(2); 




170 


Hl-RC 


sH2=C0 




180 


IF L=^^ 


I THEN 440 




1 90 


GOSUB 


50 




200 


RO=RQ+Yl!CO-;iCO-i-Xl 




210 


IF RO 


>24 THEN RO^-^24 




220 


IF RG- 


;:i IHEN R0==1 




230 


IF CO 


:;i IHEN CQ=^-a 




240 


IF CO 


>S0 THEN 310^ 




250 


0-SCREEN<RO,CD) 




260 


IF 0.==^ 


219 THEN L^l 
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10 AWESOME PROGRAMS FROM K-POWER 



270 LOCATE 2,76,0 

280 PRINT RIGHT-i^<TIME-^,4) 

290 GOTO 130 

300 REM *** MAZE COMPLETED -^-^Jt- 

310 CLS 

320 S=^100*VAL<MrD-^(TIME-$-,4,2) ) -t-VAL (MID^T (TIME^^ , 7 , 2) ) 

33t:) FOR T==l TO 30 

340 PRINT TAB (33) § "YOU MADE IT!!!" 

350 PRINTS NEXT T 

360 IF S<LS THEN LS^^^S 

370 CLS 

380 PRINT "YOUR SCORE ISg"?S 

390 PRINT 

400 PRINT "THE LOkl SCORE ISs"5LS 

410 PRINT 

420 GOTO 470 

430 REM *-^-^ RAN INTO A WALL DUMMY %*#0%- •?/.-K- ! ^s-^-^ 

440 CI...S 

450 PRINT "YOU RAN INTO A WALL! YOU LOSEu " 

460 PRINT . 

470 PRINT "PRESS <ENTER> TO PLAY" AGAIN« " 

480 G08UB 1000 

490 RESTORE 

500 DUM:$:^INKEYt 

510 IF DUMtO"" THEN 500 

520 CLS 

530 GOTO 630 

540 REM -f^^-^ INTRODUCTION -^-^-^i 

550 SCREEN 0.0,0s WIDTH 80 2LS==999 

560 CLS 

570 PRINT "THE DIRECTION KEYS AREs " 

580 PRINT 

590 PRINT "I--=:UP M=^DOWN J=^LEFT L=--RIGHT" 

600 PRINT 

610 PRINT "PRESS <ENTER> TO CONTINUE.." 

620 GGSUB" 1000 

630 CLS 

640 REM •^•^•^ INITIALIZE MOTION ARRAYS -^-J^-^- 

650 FOR 1=^0 TO 3 3 READ KT:$:(I)sNEXT I 

660 FOR 1^0 TO 3 s READ KTCDsNEXT I. 

670 FOR 1:^0 TO 3s READ YT(I)sNEXT I 

680 REM -^-^K- SCREEN DISPLAY ^-^-'f^ 

690 READ RO,A,B 

700 IF RO:-=--i THEN 760 

710 FOR CO==-=A TO B 

7 20 LOCATE RO , CO , 

730 PRINT CHR:$-(219) 5 

740 NEXT CO 

750 GOTO 690 

760 READ CO,A,B 

770 IF C0==-1 THEN 830 

780 FOR R0=^A TO B 

790 LOCATE RO , CO , O 

800 PRINT CHRt(219) 1; ' 

810 NEXT RO 

820 GOTO 760 

830 FOR R0-::^8 TO 13 

840 READ C0,CH 

S50 LOCATE R0,C0,0 
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10 AWESOME PROGRAMS FROM K-POWER 



860 PRINT CHR'^<CH)5 

870 r4EXT RO 

880 T I ME t~ " 00 g 00 5 00 " 

890 GOTO 120 

900 REM «••«••«• WAIT' ROUTINE ^^'^^^^■ 

1000 R:*^=tINKEY:|^ 

1010 IF R:*:<>CHR:il?(13) THEN 1000 

1020 REIURN 

2000 DA T A I , N , J , L.. , , , - 1,1,-1,1,0,0 

2010 DATA 1 ,7,80,3,28,36,3,76,80,4,7,9,5,57,60,6, 1 ,4,6, 18,21 ,6,36,38,7, 

72 , 80 

2020 DA T A 8,11,1 3 , 8 ,68 , 70 , 9 , ::::;8 ,41,9, 67 , 68 , 3. , 15.18, 1 , 4 1 ,61,11,4,7,1 2 , 

41 ,57, 12,6,1 ,72 

2030 DATA 14, 7, 8, 14, 10, 11, 14, 13, .14, 14, 28, 29, 14, 31, 32, 14, 77, 80, 15, 11, 12, 

15,20,21 , 15,54,74, 16,44,54 

2040 DATA 17, 1 .4,18, 15 , 38 , 18 , 54 , 65 , 18 , 68 , 79 , 20 , 38 , 51 , 21 ,5,7,21 ,11 ,35, 

2050 DATA 1 .,1 , 25 , 5 , 23 , 23, 7 , 4 , 21 ,8, 14, 14,9,8,8,9,21 ,21 , 10, 14 , 14, 1 1 ,8,21 , 

1 1 , 23 , 2:!:: , 1 2 , 1 5 , 1 5 , 1 :!!. , 2 , 8 , 1 :!!; , 1 ^T , 1 4 

2060 DATA 14,14, 14, 15,5,10. 15,13,13, 15 , 17 , 1 7 , 16 , 16 , 16 , 1 7 , 15 , 15 , 18, 2, 6 , 

18,10,14, 20 ,15,15,21,6,15, 23 , ^- , 4 , 23 , 22 , 22 , 23 , 24 , 24 

20 70 DA T A 24 , 5 , 6 , 25 , 6 , 1 7 , 28 , 3 ^ 4 , 50 ,6,6, 32 , 6 , 1 7 , 34 ,6,17, 35 , 23 ,23,36,3, 

1 4 , 36 , 1 6 , 1 6 , 38 , 2 , 6 , .38 ,18, 20 , 39 , 1 7 , 1 7 

2080 DATA 40, 16, l6,41 ,4,10,41 , 12,15,41 ,23,24,45,2,6,45, 17, 18,48, 19,22, 

49,5, 10,52 , 17, 18,53,2,6,54, 15, 18,55, 18,20 

2090 DATA 57,5, 10,59, 13, 13,59,20,21 ,61 , 7,7,61 , 10, 12,61 , 16, 16,62,2,2,62, 

2100 DATA 63,8,8,64,4,4,64,7,7,65,6,6,65, 19, 19 , 69 , 2 , 7 , 72 , 4 , 12 , 72 , 20 , 21 , 
74,7, 15,76, 13, 13,76, 16, 16,77,7 , 14,79,24,24 
2 1 1 DA (A 78 , 22 , 22 , 80 , 1 , 3 , 80 , 7 , 23 , 1 , 1 , -- 1 

TI-99/4A 

1 REM -^^i* AMAZIN' TI99/4A •^••^^••j^- 
10 GOTO 740 

19 REM ^"^^^ JOYTSICK ROUTINE •^••^•^• 

20 CALL J0YST(2,M,N) 
30 Xl^~0 

40 YI^O 

50 LI^^O 

60 IF M^^JI (LI)THEN 70 ELSE 110 

70 IF N-^4:::i (LI)THEN 80 ELSE 110 

80 XI-=XT(LI) 

90 YI^=XY(LT) 

100 RETURN 

110 LI::==LI-i"l 

120 TT.:::TI-i-l 

130 IF LK4 THEN 60 

140. XI-0 

150 YI-^0 . V 

160 RETURN 

169 REM •^•^••^- READ KEYBOARD •^•x-^- 

170 XI==0 
180 YI--0 
190 LI"~0 

200 CALL KEY(3,K,P) 

210 TI^^TI-Kl. 

220 IF P^^^^O THEN 170 

230 IF IO^:B(LI)THEN 240 ELSE 270 
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10 AWESOME PROGRAMS FROM K-POWER 



240 
250 
260 
270 
280 
290 
300 
310 
319 



320 
330 
340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

519 

520 

530 

540 

550 

560 

570 

500 

590 

600 

610 

620 

630 

640 

650 

659 

660 

670 

680 

690 

700 

710 

720 

730 

734 

740 

750 

760 

770 

780 



XI=XT(LI) 

YI=XY<H) 

RETURN 

LI=LI+1 

IF LK4 THEN 230 

XI=0 

XI=0 

RETURN 

REM *** MAIN LOOP/DRAW PLAYER CHARACTER #*# 

Hl = l 

H2=4 

R0==1 

C0=4 

L=0 

CALL VCHAR(H1,H2,136) 

CALL VCHAR(RO,CO, 144) 

IF L=l THEN 660 

H1:=R0 

H2=CQ 

ON J GOSUB 20,170 

RO=RO-i-XI 

co=ca+Yi 

IF R0<1 THEN 460 ELSE 470 

R0=1 

IF C0>32 THEN 520 

CALL 6CHAR<R0,C0,D) 

IF D=128 THEN 500 ELSE 370 

L=l 

60TQ 370 

REM *** COMPLETED MAZE 

CALL SCREEN (12) 

CALL CLEAR 

FOR T-1 

PRIh4T " 

PRINT 

NEXT T 

IF TKLS THEN 590 ELSE 600 

i— ^-/ — I .1 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

SOTO 700 

REM *** LOSE GAME 

CALL SCREEN (9) 

CALL CLEAR 

PRINT "YOU RAN INTO A WALL!" 

PRINT 

PRINT "PRESS (ENTER) TO PLAY AGAIN. 

GOSUB 1260 

CALL CLEAR 

GOTO 920 

REM *** INTRODUCTION **-» 

CALL CLEAR 

PRINT "TYPE YOUR ANSWER" 

PRINT "THEN PRESS (ENTER)." 

PRINT 

PRINT "ARE YOU USING A JOYSTICK"; 



Tn OCT 



**•» 



YOU MADE IT 



"YOUR SCORE IS: ";TI 
"THE LOW SCORE ISs";LS 

I-** 
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10 AWESOME PROGRAMS FROM K-POWER 



790 INPUT J$ 




800 IF SEG*<J*,1,1)="Y" THEN 810 ELSE 830 




810 J=l 




820 GOTO 880 




830 J =2 




840 CALL CLEAR 




850 PRINT "THE DIRECTION KEYS ftRE: " 




860 PRINT 




870 PRINT "I=LiP M=DOWN J=LEFT L=RI6HT" 




880 PRINT 




890 PRINT "PRESS (ENTER) TO BEGIN. " 




900 GOSUB 1260 




910 LS=999 , 




920 RESTORE 




930 TI=0 




939 REM *** DEFINE CHARACTERS *** 




940 A$="FFFFFFFFFFFFFFFF" 




950 B*="1S183CFFFF3C1S1S" 




960 CALL CHAR(128,A$) 




970 CALL CHAR(i36,B*) 




980 CALL CHAR(144,B$) 




990 CALL COLOR (13,5,5) 




1000 CALL COLOR (14,2,2) 




iOiO CALL COLOR (15, 15,2) 




1020 FOR V==l TO 12 ' 




1030 CALL COLOR (V, 16,2) 




1040 CALL CLEAR 




1050 NEXT V 




1059 REM *** SCREEN DISPLAY *** 




1060 READ RO,CO,REP 




1070 IF R0---1 THEN 1100 




1 OSO CALL VCH AR ( RG , CO , 1 28 , REP ) 




1090 GOTO 1060 




1100 re:ad ro,co,rep 


1 


1110 IF R0=-1 THEN 1140 




1120 CALL HCHAR(Ra,Ca,12a,REP) 




1130 GOTO 1100 




1140 FOR y^-=26 TO 31 




1150 READ CH 




1160 CALL HCHAR(23,V,CH) 




1170 NEXT V 




1179 F<EM *** LOAD DIREICTION ARRAYS *** 




1180 FOR I:-^0 TO 3 




1190 READ XT (I) 




1200 READ XY(I) 




1210 rf:ad JZ (I) 




1220 READ KI (I) 




1230 F-CAD B(I) 




1240 NEXT I 




1250 GOTO 320 




1260 INPUT R* 




1270 RETURN 




1 280 DATA 1 , 2 , 24 , 6 , 4 , 5 , 1 2 , 4 , 5 ,18,4,2, 2 1,4, 3 




1 290 DATA A- , 5 , 1 , 4 ,6,4 , 9 , 6 , 5 ,15,6,5, 1 9 , 7 , 3 ,1,8 , 1 7 




1 300 DATA 4 , 1 , 1 1 , 22 , 1 , 2 , 1 8,11,1,1, 1 3,11 , 1 5,13 , 2 




1 3 1 DATA 19,13,3,5, 1 6 ,9,22, i 6 ,2,15, 1 S , 1 , 9 , 1 7 , 1 




1 320 DATA 1 :l , 1 9,1,1 7 ,19,5,1, 20 ,11,4,22,6, 1 1 , 23 , 3 , 1 


,24,6 


1 330 DATA 1 4 , 26 , 7 , 23 ,25,1,5 , 27 , 4 , 1 2 , 29 , 1 ,18, 29 , 2 




1 340 DATA 1 7 , 30 ,1,5, 32 , 20 , -■ 1 , -• 1,-1 
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10 AWESOME PROGRAMS FROM K-PCWER 



1350 DATA 1,5,28,2,24,9,6,30,2,9,22,8,11,23,11 

1360 DATA 13,16,8,15,13,17,17,8,4,14,10,3,22,25,8 

1370 DATA 24,1,31,19,6,18,5,18,1,19,31,1,-1,-1,-1 ' 

1380 DATA 65,77,65,90,73,78 

1390 DATA -1,0,0,4,73,1,0,0,-4,77 

1 400 DATA O , - 1 ,-4,0, 74 ,0,1,4, ,76 

TRS-80 Color Computer 

1 REM ♦♦» flMftZIN' **♦ 
10 GOTb 3000 

99 REM *♦* JOYSTICK ♦*♦ 

100 H=JOYSTK<0) 
110 V=J0YSTK(1> 

120 IF H<10 THEN X 1=0 :YI=-1: RETURN 
130 IF H>52 THEN XI=0!YI=1 : RETURN 
140 IF V<10 THEN YI=0:XI=-1: RETURN 
150 IF V>5£ THEN YI=0: X 1=1 : RETURN 
160 YI=0:XI=0: RETURN 

199 REM ♦*♦ REPID KEYBOARD *** 

200 LI=0 

220 KE*=INKEY*:IF KE*="" THEN RETURN 

230 IF KE*=KT*(LI) THEN YI=YT(LI) :XI=XT (LI) :RETURN 

240 LI-LI + lsIF LK4 THEN 230 

250 RETURN 

499 REM ♦*♦ MfilN LOOP-DRfiW PLAYER CHARACTER ♦♦* 

500 CO=4:RO=0 

510 REM **♦ FOR EXTRA FUN *** 

520 REM *♦* CRUISE THE CLOCK *♦* 

530 SET (CO, R0,5) 

540 IF F=2 THEN 570 

550 FOR T=l TO 2 

560 NEXT T 

570 IF L=l THEN 2000 ' 

580 RESET (CO, RO) 

590 TI=TI+.3 

600 ON J GOSUB 100,200 

610 RO=RO+XI:CO=CO+YI 

620 IF C0>63 THEN 1000 

630 IF RO<0 THEN RO=0 

640 IF POINT (CO, R0)=3 THEN L=l 

650 PRIWTe25, INT(TI); 

660 GOTO 510 

999 REM ♦*♦ COMPLETED MAZE *♦* 

1000 CLS 

1010 FOR T=l TO 100 

1020 PRINT "YOU MADE IT! "; 

1030 FOR D=l TO 10 

1040 NEXT D 

1050 NEXT T 

1060 CLS 

1070 PRINT "YOUR SCORE IS:"INT(TI) 

1080 IF INT(TI)<LS THEN LS=-INT(TI) 

1090 PRINT 

1100 PRINT "THE LOW SCORE iS:"LS 

1110 PRINT 

1120 GOTO 2030 

1999 REM **♦ RAN INTO TH^E WALL DUMMY !?+i?!! *** 

2000 CLS 

2010 PRINT "YOU RAN INTO A WALL!" 
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10 AWESOME PROGRAMS FROM K-POWER 



2020 PRINT 

2030 PRINT "PRESS (ENTER) TO PLOY flGfllN. " 

2040 GOSUB 4000 

£050 RESTORE 

2060 DUM*=INKEY*:IF DUM*<>"" THEN 2060 

2070 GOTO 3130 

2999 REM *♦* INTRODUCTION, THE CURTftIN RISES. . . ♦♦♦ 

3000 CLS 

3010 PRINT "fiRE YOU USING ft JOYSTICK (Y/N)?" 

3020 J«=INKEY*:IF J*="" THEN 3020 

3030 IF J*="Y" THEN J=1:G0T0 3120 

3040 IF J*<> "Y" THEN J=2 

3050 CLS 

3060 PRINT ^'THE DIRECTION KEYS ARE:" 

3070 PRINT 

3080 PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 

3090 PRINT 

3100 PRINT "PRESS (ENTER) TO BEGIN." 

3110 GOSUB 4000 

3119 REM *** INITIALIZE VftRIfiBLES «♦* 

3120 LS=200 

3130 CLS(0):L=0:YI=0:XI=0:TI=0 

3139 REM *** DRAW LE MAZE PIERRE *** 

3140 READ A,B 

3150 IF A=-l THEN 3200 

3160 FOR CO=A TO B 

3170 PRINTeCO, CHR*( 143+32) ; 

3180 NEXT CO 

3190 GOTO 3140 

3200 READ A,B 

3210 IF A=-l THEN 3260 

3220 FOR RO=A TO B STEP 32 

3230 PRINTi?RO, CHR* ( 143+32) 5 

3240 NEXT RO 

3250 GOTO 3200 

3260 FOR R0=158 TO 318 STEP 32 

3270 READ CH 

3280 PRINT@RO, CHR*(CH); 

3290 NEXT RO 

3299 REM **♦ INITIALIZE DIRECTION VARIABLES »♦♦ 

3300 FOR 1=0 TO 3sREftD KT$(I)!NEXT I 
3310 FOR 1=0 TO 3:READ XT(I):NEXT I 
3320 FOR 1=0 TO 3:READ YT(I):NEXT I 
3330 GOTO 500 

3999 REM *♦♦ WAIT ROUTINE ♦♦* 

4000 INPUT R* 
4010 RETURN 

5000 DATA 4,31,61,63,128,130,149,157,195,197,206,219 

5010 DATA 296,309,315,317,320,322,349,351,357,370,376,379 

5020 DATA 424,437,444,447,480,510,-1,-1 

5030 DATA 0,448,4,68,5,369,104,296,11,235,45,45 

5040 DATA 141,141,79,207,18,146,274,274,85,149 

5050 DATA 245,245,309,437,24,88,216,440,91,91 

5060 DATA 251, 251, 125, 349, 126, 126, 350, 350 

5070 DATA 127,510,-1,-1 

5080 DATA 65,77,65,90,73,78 

5090 DATA J, I,M, L, 0, -1, 1,0, -1,0, 0, 1 
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10 AWESOME PROGRAMS FROM KKWBt 



TRS-80 Atodei III and Model 4 

1 REM *** AMAZIN TRS-eO MODELS 3 AND 4 CASS. OR MODEL 3 DISK BASIC *♦* 

10 GOTO 3000 

199 REM *** READ KEYBOARD *** 

LI=0 

KE«=INKEY« 

IF KE*="" THEN RETURN 

IF KE*=KT*(LI) THEN YI=YT(LI) 

LI==LI + 1 



200 

210 

220 

230 

240 

250 

260 

499 

500 

510 

520 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

999 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1 1 00 

1110 

1120 

1999 

2000 

2010 

2020 

2030 

2040 

2050 

.2070 

2999 

3000 
3060 
3070 
3080 
3090 
3100 
3110 
3119 



XI=XT (LI): RETURN 



50 



,R0) 
TO : 



L=l 



100 

MADE 

10 



IT! 



IF LK4 THEN 

RETURN 

REM *♦* MAIN LOOP-^DRAW PLAYER CHARACTER *** 

C0=5 

R0=0 

SET (CO, 

FOR T=l 

NEXT T 

IF L=l THEN 2000 

RESET (COjRO) 

TI«TI+.2 • 

BOSUB 200 

RO=RO+YI:CO=CO+XI 

IF CO > 127 THEN 1000 

IF RQ<0 THEN R0=0 

IF POINT <CO,RO) THEN 

PRINT@56,INT(TI); 

SOTO 520 

REM **# COMPLETED MAZE #** 

CLS 

FOR T=l TO 

PRINT "YOU 

FOR D=l TO 

NEXT D 

NEXT T 

CLS 

PRINT "YOUR SCORE IS:"INT(TI) 

IF INT (TI XLS THEN LS=INT(TI) 

PRINT 

PRINT "THE LOW SCORE IS: "LS 

PRINT 

GOTO 2030 

REM *#» RAN INTO A WALL *** 

CLS 

PRINT "YOU RAN INTO A WALL!" 

PRINT 

PRINT "PRESS (ENTER) 

GOSUB 4000 

RESTORE 

GOTO 3130 

REM *** INTRODUCTION *** 

CLS 

PRINT "THE DIRECTION KEYS ARE: 

PRINT 

PRINT 

PRINT 

PRINT 

GOSUB 



TO PLAY AGAIN. " 



'I=UP M=DOWN J=LEFT L=;=RIGHT" 



"PRESS 
4000 



(ENTER) TO BEGIN. 



REM **» INITIALIZE VARIABLES **♦ 
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10 AWESOME PROGRAMS FROM K-POWER 



3120 
3130 
3139 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3299 
3300 
33 1 
3320 
3330 
3999 
4000 
4010 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5115 
5120 
5130 
5140 



XI*0:TI=0 
MAZE *** 



LS=999 

cls:l=o:yi=o 

REM *** DRAW 

READ A,B 

IF A=-i THEN 3200 

FOR CO=A TO B 

PR I NTilCO , CHR* (191); 

NEXT CO 

GOTO 3140 

READ A,B 

IF A=-i THEN 3260 

FOR RO=A TO B STEP 

PR I NTQRO , CHR* (191); 

NEXT RO 

GOTO 3200 

FOR R0=317 TO 639 STEP 

READ CH 

PRINTQRO, CHR* (CH) ; 

NEXT RO 

LOAD 

TO 3 

TO 3 

TO 3 



64 



REM 
FOR 
FOR 
FOR 
GOTO 



♦** 
1=0 
1=0 
1=0 

500 
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DIRECTION VARIABLES *** 
READ KT* ( I ) : NEXT I 
READ XT(I) :NEXT I 
READ YT(I) :NEXT I 



REM *** WAIT 

INPUT R* 

RETURN 

DATA 

DATA 

DATA 

DATA 



ROUTINE *** 



225, 252, 255, 292, 297, 325 



4,63,68,71, 120,127,141,1 

361 
513, 3 



379,449,450,460, 
■=: '^1,528,528, 536, 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



595 ,601, 503 , 509 , 604 , 609 ,612, 



654,656,668,671 



847,850,912,915,863 



0,960,83,467,84 

701,765,702,766 

96,96,99,99,423 

858,922,797,861 

255,959,318,638 

65,77,65,90,73.78 

M,I,J,L 

0,0,-1,1 

1,-1,0,0 



461 
537 



699,700,709, 



468, 
775, 



872 

152 

775 

423, 105 

874,874 

-1,-1 



464, 
548, 



,880, 

,408, 

841 

169, 

180, 



92, 

468 
552 
617 
744 
887 
165 
905 
112 
308 



203,205,: 
38,40, 
472,499, 
570,572, 
619,630, 
752,756, 
891,894, 
229,91, 
780,844, 
240,173, 
184,248. 



07 



52,357 








,502, 


507 








,584, 


586, 


591 


,592 




,633, 


635, 


645 


,645 




,759, 


764 








,960, 


1022,-1 


,-1 




347,1 


57, 1 


57, 


836,900 


,790, 


854, 


857 


,921 




,301, 


684, 


876 


,789, 


85 


,252, 


700, 


63, 


127 





VIC-£iZi **♦ 



VIC-20 

i REM *♦♦ OMAZIN' 
10 SOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 

100 POKE 37154, 1£7 

110 XT%=PEEK(3715£)flND12a 

120 POKE 37154,255 

130 XT54=XT-/C OR (PEEK (37137) flND127) 

140 XI=S6N(XT%flNDi£a)-SGN(XT?ifiND16) 

150 YI=SBN(XT?tflNDe)-SGN(XT-XftND4) 

160 RETURN 

199 REM **♦ REfiD KEYBOARD ROUTINE »** 

200 XI=0sYI=0:LI=0 

£10 GET KE*sIF KE*=""TH£N RETURN 

220 IF KE*=KT*(LI)THEN YI=YT(LI) sXI=XT (LI) :RETURN 
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10 ANTESOME PROGRAMS FROM K-POWER 



£30 LI=LI+1:IF LI <4 THEN £20 
£40 RETURN 

499 REM MfilN LOOP-DRfiW PLfiYER *♦♦ 

500 H1=3:H£=0 
510 CO=2:RO=0:L=0 

5£0 T I *=" 000000" 

530 IF C0>£1 THEN 1000 

540 IF RO<0 THEN RO=0 

550 POKE CB+H1+££*H£,£ 

560 POKE CB+CO+££*RO, 

570 POKE SB+CO+££*RO, 81 

580 IF L=i60 THEN £000 

590 H1=C0:H£=R0 

600 ON J GOSUB 100, £00 

610 RO=RO-YI:CO=CO-XI 

6£0 L=PEEK (SB+CO+££*RO) 

630 PRINT CHR*(ig)CHR*(159)TflB(18)RIGHT*(TI*, 3> 

640 GOTO 530 

999 REM ♦*♦ COMPLETED MAZE ♦** 

1000 PRINT CHR*(147) :WH«=TI* 
1010 FOR T=l TO 100 

10£0 PRINT" YOU MODE IT! "; 

1030 POKE 36879, INT(RND(l)*7)+8 

1040 NEXT T 

i0j50 POKE 36879, £37 

1060 if" VfiL<RIGHT*<WH*,3)) <VftL<LS*)T'HEN LS*=RIGHT*(WH*, 3) 

1070 PRINT CHR*(147)CHR*<144> 

1080 PRINT "YOUR SCORE IS: "RIGHT* (WH*, 3) 

1090 PRINT 

1100 PRINT "THE LOW SCORE IS:"LS* 

1110 PRINT 

11£0 GOTO £030 

1999 REM *** RftN INTO WALL ♦** 

£000 PRINT CHR*(147)CHR*(144) 

£010 PRINT "YOU RAN INTO A WALL!" 

£0£0 PRINT 

£030 PRINT "(SHIFT) TO PLAY AGAIN" 

£040 GOSUB 4000 

£050 RESTORE 

£060 GET DUM*:IF DUM*<>""THEN £060 

£070 GOTO 31£0 

£999 REM INTRODUCTION *** 

3000 PRINT CHR*(147) 

3010 PRINT "USING A JOYSTICK (Y/N) " 

30£0 GET J*! IF J*=""THEN 30£0 

3030 IF J$="Y" THEN J=i:GOTO 31£0 

3040 IF J*=<>"Y" THEN J=£ 

3050 PRINT CHR*(147) 

3060 PRINT "THE DIRECTION KEYS ARE" 

3070 PRINT 

3080 PRINT "I=UP M=DOWN" 

3090 PRINT "J=LEFT L=RIGHT" 

3100 PRINT: PRINT "PRESS (SHIFT) TO BEGIN" 

3110 GOSUB 4000 

3119 REM ♦*♦ INITIALIZE VARIABLES *♦* 

31£0 SB=7680:CB=38400:LS*="£00" 

3130 POKE 36879, 46: POKE 650, 1 £8 

3139 REM *** DRAW MAZE *** 

3140 PRINT CHR*(147) 
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3150 


READ CO,A, B 


3160 


IF C0=-1 THEN 3220 


3170 


FOR RO=fl TO B 


3180 


POKE SB+C0+22*R0, 160 


3190 


POKE CB+C0+22*R0, 1 


3200 


NEXT RO 


3210 


GOTO 3150 


32e0 


READ RO,A,B 


3230 


IF R0=-1 THEN 3380 


3240- 


FOR CO=A TO B 


3250 


POKE SB+C0+22*R0, 160 


3260 


POKE CB+C0+22*R0, 1 


3270 


NEXT CO 


3280 


GOTO 3220 


3380 


READ RO,CO, CH, 


3390 


IF R0=-1 THEN 3440 


3400 


POKE SB+C0+22*R0, CH 


3410 


POKE CB+C0+22*R0, Q 


3420 


PRINT CHR*(144) 


3430 


GOTO 3380 


3439 


REM *** INITIALIZE DIRECTION VARIABLES *♦* 


3440 


FOR 1=0 TO 3: READ KT*(I):NEXT 


3450 


FOR 1=0 TO 3:READ XT(I):NEXT 


3460 


FOR. 1=0 TO 3: READ YT(I):NEXT 


3470 


GOTO 500 


3999 


REM ♦♦♦ WAIT ROUTINE **♦ 


4000 


WAIT 653, 1 


4010 


WAIT 653, 1,1 


4020 


RETURN 


5000 


DATA 0, 0, 22, 3, 15, 19, 4, 0, 2, 5, 0, 16, 8, 3, 14 


5010 


DATA 11, 1,9, 14,2,6, 14,9, 12, 16, 12, 16, 18,3, 10 


5020 


DATA 18, 16, 17, 21, 0, 1, 21, 3, 22, -1,-1,-1 


5030 


DATA 0, 4, 17, 1, 17, 21,2, 14," 15, 3, 18, 21, 4, 17, 17, 5, 0, 3 


5040 


DATA 6, 15, 16,8,3,5,9, 14, 17,10, 18,21,12, 1,2, 12, 11, 14 


5050 


DATA 14, 8, 18, 15, 3, 4, 16, 3, 13, 18, 16, 16, 19, 7, 16, 20, 19, 20 


5060 


DATA 22,0,21,-1,-1,-1 


5070 


DATA 4, 19, 1, 1, 4, 20, 81, 7, 5, 19, 81, 3, 5, 20, 13, 1, 6, 19, 1, 1 


5080 


DATA 6,20,81,4,7, 19, 81, 5, 7, 20, 26, 1, 8, 19,9, 1,8,20,81,6 


5090 


DATA 9,19,81,7,9,20,14,1,-1,-1,-1,-1 


5100 


DATA M, L, J, I, 0, -1, 1, 0, -1, 0, 0, 1 


READY. 
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BONUS PROGRAM #2 

POISON lyy 

POISON IVY is a game 
of a vs.r i mt y o-f s t i c k 
the game stuck in a P 
to go all the way o-f-f 
the blooming POISON I 
impossible- When you 
t i m e y o u m a !•:: e i t to t 
restarts, becomes ha.r 
the screen « You use 
direct ion.: 



that helps you. learn how to ge^t out 
y sit Li a t i o n s in a h u r r y » Y ou. b e g i n 
01 SON IVY patch a The only way out is 

the right side of the screen before 
VY traps you, making escape 

touch POISON IVY^ you iose« EEach 
he right side of the screen, the game 
d^r ^ and puts you at the left side of 
joystick or keyboard to control your 



•X--X-X- 



yi 


= -1 : RETURN 


xi 


= 1 : RETURtI 


yi 


= 1 : RETURN 


xi 


= -1 : RETURN 



ADAM 

1 REM *** POISON IVY ADAM 
10 GOTO 3000 

199 REM *** read keyboard routine *** 

200 xi = 0: yi = 0: li = 
210 GET ke$ 

220 IP ASC(ke$) = 160 THEN 
230 IP ASC(ke$) = 161 THEN 
240 IP ASC(ke$) = 162 THEN 
250 IP ASC(ke$) = 163 TEEN 

399 REM *** draw ivy *** 

400 X = INT(RND(1 )*39) 
410 y = INT(RND(1)*39) 

420 IP X = AND y = 11 THEN 400 
430 IP X = 1 AND y = 11 THEN 400 
440 COLOR = 6 
450 PLOT X, y 
460 RETURN 

499 REM *** main loop-draw player character *** 

500 CO = 0: ro = 11 : 1=0 
510 COLOR =11 

520 PLOT CO, ro 

530 IP 1 = 1 THEN 2000 

540 GOSUB 200 

550 ro = ro+yi: co = co+xi 

560 IP ro > 39 THEN ro = 39 

570 IP ro < THEN ro = 

580 IP CO < THEN co = 

590 IP CO > 39 THEN 1000 

600 IP SCRN(co, ro) = 6 THEN 1=1 

610 COLOR = 

620 PLOT co-xi, ro-yi 

630 X = x+1 

640 IP x/6 = INT(x/6) THEN GOSUB 400 

650 GOTO 510 

999 REM *** successfully completed maze *** 
1000 TEXT: HOME 
1010 FOR t = 1 TO 100 
1020 PRINT "YOU MADE IT! "; 
1040 NEXT t 



S5 



10 AWESOME PROGRAMS FROM K-POWER 



1060 s = 3+1 : IF s > hs THEN hs = s 

1070 di = di+50 

1080 HOME 

1100 PRINT "Your score is: "; s 

1110 PRINT 

1120 PRINT "The high score is: "; hs 

1130 PRINT 

1140 GOTO 2080 

1999 REM *** lose game *** 

2000 TEXT: HOME 

201 PRINT "YOU lOSE , " 

2015 PRINT "You have POISON IVY!" 

2020 PRINT 

2030 PRINT "Your final score is: "; s 

2040 PRINT 

2050 PRINT "Your high score is: "; hs 

2060 PRINT 

2070 s = 

2080 PRINT "Press any key to play again." 

2110 GET dum$ 

2130 GOTO 3060 

2999 REM *** introduction *** . 

3000 HOME 

3010 PRINT TAB(8); "POISON IVY!" 
3020 PRINT 

3030 PRINT "Press any key to begin." 
3040 GET n$ 

3049 REM *** display screen *** 

3050 di = 175 
3060 GR 

3070 FOR t = 1 TO di 
3080 GOSUB 400 
3090 NEXT t 
3100 GOTO 500 



Apple II and Apple lie 



1 

10 

99 

1 00 

no 

120 

150 

I60 

170 
190 
199 
200 
210 
220 
230 
240 
250 
399 
400 
410 
420 
430 



IVY APPLE •»** 



REM *•«•* POISON 
GOTO 3000 
REM »*•» JOYSTICK 

IF PDL <1) 

IF PDL (1) 
YI = 

IF PDL <0) 

IF PDL (0) 
XI = 
LI == OS RETURN 

REM •»•«••«• READ KEYBOARD ROUTINE **# 
XI = OsYI = OsLI == O 
KE = PEEK < - 16384) s POKE - 16368,0 

IF KE < 128 THEN 60T0 250 



ROUTINE *** 
64 'THEN YI = ~ 
192 THEN YI = 1; 

64 THEN X I = - 
192 THEN XI = 1 



l5 BOTO 150 
GOTO 150 

Is GOTO 190 
GOTO 190 



IF CHRt- (KE - 128) 
LI = LI + Is IF LI < 

RETURN 

F:EM **•»• DRAW IVY *** 
X = INT ( RND (0) * 39) 
Y = INT ( RND <1) * 47) 

IF X == AND Y = 11 THEN 

IF X = 1 AND Y = 11 THEN 



KTf<LI) THEN 
THEN 230 



YI = YT(LI)5XI = XT(LI)s RETURN 



400 
400 
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440 COLOR= 12 
450 PLOT X,Y 
460 RETURN 

499 REM **« MAIN LOOP-DRAW PLAYER CHARACTER *** 

500 CO = OsRO = 11:L = 
510 COLOR= 11 

520 PLOT CO,RO 

530 IF L = 1 THEN 2000 

540 ON J GOSUB 100,200 

550 RO = RO + YI:CO = CO + XI 

560 IF RO > 47 THEN RO =47 

570 IF RO < O THEN RO « 

580 IF CO < THEN CO = 

590 IF CO > 39 THEN 1000 

600 IF SCRN< CO,RO) == 12 THEN L = 1 

610 COLOR= 

620 PLOT CO ~ XI,F^•0 - YI 

630 X = X + 1 

640 IFX/6== INT<X/6) THEN BOSUB .400 

650 GOTO 510 

999 REM ■**# SUCCESSFULLY COMPLETED MAZE*.** 

TEXT s HOME 

FOR T = 1 TO 100 

PRINT "YOU MADE IT! "; 

NEXT T ^ 
S ==: S + l5 IF S > HS THEN HS = S 
DI = DI + 50 

HOME 

PRINT "YOUR SCORE IS: "S 

PRINT 

PRINT "THE HIGH SCORE ISs "HS 

PRINT 

GOTO 2080 

REM *** LOSE GAME **» 

TEXT s HOME 

PRINT "YOU LOSE. YOU HAVE POISON IVY!" 

PRINT 

PRINT "YOUR FINAL SCORE IS: "S 

PRINT 

PRINT "THE HIGH SCORE IS: "HS 

PRINT 
S = 

PRINT "PRESS ANY KEY TO PLAY AGAIN." 

IF PEEK ( - 16368)- > 127 THEN 2100 

GET DUM* 

HOME s RESTORE 

GOTO 3150 

REM *** INTRODUCTION *** 

HOME 

PRINT " ARE YOU USING A JOYSTICK (Y/N)?' 

GET J* 

IF J* = "Y" THEN J = Is GOTO 3140 

IF J* < > "Y" THEN J = 2 

HOME 

PRINT "THE MOTION KEYS ARE:" 



100< 
1010 
102( 

1 04i: 
i06<: 
io7(: 

1 080 
HOC 
UK 

ii2<: 

use 

1140 

1999 

2000 

2010 

20 2 ( 

203C 

204(; 

205C 

206< 

2070 

20} 80 

2 IOC 

21 IC 

213t: 

2140 

2999 

300< 

3010 

3;020 

303(: 

304 

3050 

306(: 

307(: 

308C 

3090 

3io<: 



PRINT 

PRINT TAB( 6) "U I 0" 

PRINT TABC 6) "J L" 

PRINT TAB( 6) "M , 
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PRINT 

PRINT "PRESS ANY KEY TO BEGIN." 

GET N* 

KT:$:(7) ,XT(7) ,YT(7) sDI == 175 

*** ENTER FULL LO-RES GRAPHICS SCREEN *** 
: POKE - 16302,0s CALL - 1998 

•«•*•»• INITIALIZE DIRECTION VARIABLES 



= 
= O 

= o 

= 1 

400 
T 
500 



TO 
TO 
TO 
TO 



7s 
7s 
7g 
DI 



READ 
READ 
READ 



KTt- ( I ) 
XT(I) s 
YT ( I ) s 



,L,0, I ,U,J,M 



3110 
3120 
3130 
3140 
3149 
3150 
3159 
3160 
3170 
3180 
3190 
3200 
32 1 
3220 
5000 
5010 
5020 

Atari 

1 REH -^-^'^ POISON' IVY ATARI *-^-^ 
10 DIM R:$:(l) ,J^(1) 
20 GOTO 3000 

99 REM J^-^-J^- JGYST 

100 LX-=0s YX-^Os XI 
no JV:^:^:STICK(0) 
120 IF JV=^J<LI) 
130 LI^:^LI-+-i 
140 IF LK8 THEIN 
150 X I =^^03 Y 1^0 

RETURN 

REM *-«-^- KEYBOARD ROUTINE -^-^-^ 

XI-~0s YI-0sLI"0 

K=:^PEEK(764) 



DIM 

REM 

GR 

REM 

FOR 

FOR 

FOR 

FOR 

GOSUB 

NEXT 

GOTO 

DATA 

DATA 

DATA 



*** 



NEXT 
NEXT 
NEXT 




1 



1,1,1,0, 
1,0,-1,- 



1 , 1 , ~ 
•1,-1,0. 



YT(IO) 



lEK ROUTINE 
•'••0 



•>:'2«?-«- 



IIEN 
120 



YI""==YT (LI ) s XI=-XT (LI > s RETURN 



160 
199 
200 
210 
220 
230 
240 
250 



IF K=:^B(LI) 

LI^^LI-t-l 

IF LKB THEN 230 
260 RETURN 
400 X :^^[ N r ( RND (1 ) •J^40 ) 

Y'^:=INT(RND(1)J^24) 

IF X=:^0 AND Y:^:ll 

IF X^l AND Y^^ll 

COLOR .2 

PLOT X.V 



HEN Y I ^^^ Y r ( L I ) s X I =^ X T ( L I ) s RETURN 



410 

420 IF X=^0 AND Y^^^ll THEN 400 

430 IF X^l AND Y^^ll THEN 400 

440 

450 

460 RETURN 

499 REM •^•^•^ MAIN LOOP-DRAW PLAYER CHARACTER -^-^-^ 

500 CG=^0 5RG^llsL=^=0 
510 Hl=::=0sH2=^ll 
520 COLOR O 

530 PLOT HI J-i2 

540 COLOR 1 

550 PLOT CO.RO 

560 IF L=^l THEN 2000 

570 Hl^^C0sH2=^R0 

580 ON J GOSUB 100,200 

590 RO-RO -I- Y I s CO=^^=CO+- X I 

600 IF R0>23 THEN RQ:^:23 

610 IF R0<0 THEN RG^^^O 

620 



IF C0<0 THEN CQ==0 
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630 IF C0>39 THEN 1000 

640 LOCATE CO,RO,C 

650 IF C=2 THEN L=^l 

660 Z=Z+1 

670 IF Z/3=INT(Z/3) THEN BOSUB 400 

680 POKE 764,255 

690 GOTO 520 

999 REM *** COMPLETED MAZE **•»• 

1.000 6RAPHICS 

1010 FOR T=l TO 100 

1020 PRINT "YOU MADE IT!!! "; 

1030 NEXT T 

1040 PRINT CHR*-(125) 

1050 S=^-=S+l3lF S>HS THEN HS-=S 

1060 DI--DI+50 

1070 PRINT "YOUR SCORE IS5"5S 

1080 PRINT 

1090 PRINT "THE HIGH SCORE IS5"sHS 

1100 PRINT 

1110 GOTO 2090 

1999 REM *«* HA HA POISON IVY ■»•»•* 

2000 GRAPHICS 

2010 PRINT "YOU HAVE POISON IVY! YOU LOSE," 

2020 PRINT 

2030 PRINT "VOUR FINAL SCORE ISs"sS 

2040 PRINT 

2050 PRINT "THE HIGH SCORE ISs";HS 

2060 PRINT 

2070 S=0 

2090 PRINT "PRESS < RE TURN > TO PLAY REVERSE," 

2100 GOSUB 4000 

2110 RESTORE 

2120 PRINT CHR$(125) 

2130 GOTO 3170 

2999 REM •»•** INTRODUCTION *** 

3000 PRINT CHR*(125) 

3010 PRINT "TYPE YOUR ANSWER THEN PRESS < RETURN >. " 

3020 PRINT "ARE YOU USING A JOYSTICK (Y/N)"5 

3030 INPUT J$ 

3040 IF J$=-"V" THEN J==lsGOTO 3130 

3050 IF J*<>"Y" THEN J=2 

3060 PRINT "THE NOTION KEYS AREs " 

3070 PRINT ." U I 0" 

3080 PRINT " J L" 

3090 PRINT " M „ „ " 

3100 PRINT 

3 1 1 PR I N T "PRESS < RE TURN > TO BEG IN," 

3120 GOSUB 4000 

3130 PRINT CHR*<125) 

3159 REM »•«•*■ INITIALIZE SCREEN AND SCORE VARIABLES ***• 

3160 D 1=125 

3170 6RAF""HICS 3+16 

3179 REM **-s LOAD MOTION ARRAYS *** 

3180 FOR I==0 TO 7; READ 6s J < I ) -Qs NEXT I 
3190 FOR I==0 TO 7 s READ E;B(I)=BsNEKT 1 
3200 FOR 1=0 TO 7;: READ Xs XT < I ) =^Xs NEXT I 
3210 FOR 1=0 TO 7: READ Ys YT ( I ) =Ys NEXT I 
3220 FOR r=l TO DI 

3230 GOSUB 400 
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3240 NEXT T 

3250 GOTO 500 

4000 INPUT R* 

4010 RETURN 

5000 DATA 10,14,6,11,7,9,13,5 

5010 DATA 11,13,8,1,0,37,32,34 

5020 DATA -1,0,1,-1,1,-1,0,1 

5030 DATA -1,-1,-1,0,0,1,1,1 

Commodore 64 

1 REM *»* POISON IVY 6 A **♦ 
10 60T0 31900 

99 REM ♦♦* JOYSTICK ROUTINE ♦♦♦ 

100 XI=0:YI=0:LI=0 
110 JV= PEEK (56321) 
120 JV=15-(JVfiND15) 

130 IF JV=JS(LI)THEN YI=YT (LI) :XI=XT (LI) : RETURN 

140 LI=LI + 1:IF LK10 THEN 130 

150 X 1=0 :YI=0: RETURN 

199 REM *♦* READ KEYBOARD ROUTINE ♦** 

£00 XI=0:YI=0:LI=0 

210 GET KE* 

220 IF KE$=""THEN RETURN 

230 IF KE*=KT*(LI) THEN YI=YT (LI) :XI=XT (LI ) '.RETURN 

240 LI=LI+1:IFLI<8 THEN 230 

250 RETURN 

399 REM ♦*♦ DRAW IVY ♦♦* 

400 X=INT(RND(0)»39) 
410 Y=INT(RND(1)*25) 

420 IF X=0 AND Y=ll THEN 400 
430 IF X=l AND Y=ll THEN 400 
440 POKE SB+X+40*Y, 88 
450 POKE CB+X+40*Y, 5 
460 RETURN 

499 REM *** MAIN LOOP-DRAW PLAYER CHARACTER *♦♦ 

500 CO=0:RO=11:L=0 

510 POKE CB+H 1 +40*H2 ,11 

520 POKE CB+CO+40«RO, 

530 POKE SB+CO+40*RO, 86 

540 IF L=l THEN 2000 

550 H1=C0:H2=R0 

560 ON J GOSUB 100,20® 

570 RO=RO+YI:CO=CO+XI 

580 IF R0>24 THEN R0=24 

590 IF RO<0 THEN RO=0 

600 IF CO<0 THEN CO=0 

610 IF CO) 39 THEN 1000 

620 IF PEEK(SB+CO+40*RO)=a8 THEN L=l 

630 X=X+1 

640 IF X/6=INT(X/6)THEN GOSUB 400 

650 GOTO 510 

999 REM **♦ SUCCESSFULLY COMPLETED MAZE **♦ 

1000 PRINT CHR*(147) 
1010 FOR T=l TO 100 

1020 PRINT "YOU MADE IT! "; 
1030 POKE 53280, INT (RND(1)*16)+1 
1050 NEXT T 

1060 S=S+1:IF S>HS THEN HS=S 
1070 DI=DI+50 

30 
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1080 

1090 
1100 
1110 

1120 
1130 
1140 
1999 
£000 

2010 

2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 

2100 

2110 
2120 
2130 
2140 
2999 

3000 
3010 

3020 
3030 
3040 
3050 
3080 
3070 
3080 
3090 

3100 

3110 
3120 
3130 
3140 
3159 
3160 
3170 
3179 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3999 

4000 
4010 

4020 

5000 
3010 

d020 
5030 



IS:"S 



PRINT CHR*(147) 

POKE 53261, 11 

PRINT "YOUR SCORE 

PRINT 

PRINT "THE HIGH SCORE 

PRINT 

GOTO 2080 

REM ♦♦* LOSE BflME *** 

PRINT CHR*(147) 

"YOU LOSE, YOU HftVE 



IS:"HS 



POISON IVY! 



"YOUR FINftL SCORE IS:"S 



"THE HIGH SCORE IS s"HS 



"PRESS 

4000 



(SHIFT) TO PLAY fiGfllN. 



>110 



♦*♦ 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

S=0 

PRINT 

GOSUB 

RESTORE 

GET DUM* 

IF DUM* <> ""THEN 

PRINT CHR$(147) 

GOTO 3170 

REM **♦ INTRODUCTION 

PRINT CHR*(147) 

PRINT " ORE YOU USING fl JOYSTICK (Y/N) ?" 

GET J*: IF J*=""THEN 3020 

IF J*="Y"THEN J=1:B0T0 3140 

IF J«<>"Y"THEN J=2 

PRINT CHR*(147) 

PRINT "THE MOTION KEYS ARE:" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GOSUB 

PRINT 



T0B(6)"U 
TAB (6) "J 
TftB<6)"M 



0" 

L" 



"PLEASE PRESS (SHIFT) TO BEGIN. " 

4000 

CHR*(147) 

REM ♦*♦ INITIALIZE SCREEN AND SCORE VARIABLES ♦*# 
SB= 1 024 : CB=55296 : D r= 1 25 
POKE 53280, 9: POKE 53281, 11 :POKE650, 128 



REM 
FOR 
FOR 
FOR 
FOR 
FOR 



INITIALIZE DIRECTION ARRAYS 
TO 7: READ KT* ( I ) sNEXT 

XT(I) -.NEXT 

YT(I) :NEXT 

JS(I) :NEXT 



TO 
TO 
TO 
TO 



7! READ 
7: READ 
7; READ 
DI 



#♦♦ 

1=0 
1=0 
1=0 
1=0 

T=l 
GOSUB 400 
NEXT T 
GOTO 500 

REM *** WAIT ROUTINE *** 
WAIT 653, 1 
WAIT 653, 1,1 
RETURN 

DATA ", ", ". ",L, 0, I,U, J,M 
DATA 0, 1, 1, 1,0, -1,-1, -1 
DATA 1,1,0,-1,-1,-1,0,1 
DATA 2, 10,8, 9, 1,5,4,6 



#♦♦ 
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IBMK 

10 REM «** POISON IVY IBM--PC *** 

20 KEY OFF 

30 GOTO 680 

40 REM *** READ KEYBOARD ROUTINE «** 

50 Ll==0sXI=05YI=0 

60 KE*=INKEY* 

70 IF KE*="" THEN RETURN 

80 IF KE*=KT*(LI) THEN YI=YT <LI ): XI=XT (LI ) s RETURN 

90 LI=LI + l!lF LK8 THEN 80 

100 RETURN 

110 REM **« DRAW POISON IVY **« 

120 X=INT(RND<1)*79)+1 

130 Y=INT<RND(1)*24)+1 

140 IF X=l AND Y=li THEN 120 

150 IF X=2 AND Y=ll THEN 120 

160 LOCATE Y,X,0 

170 PRINT CHR*(5) ; 

180 RETURN 

190 C0='lsR0===llsL=0sHl = ilsH2=l 

200 LOCATE H1,H2,0 

210 PRINT CHR*(32) 5 

220 LOCATE RO,CO,0 

230 PRINT CHR*(2) 5 

240 Hl=RasH2=C0 

250 IF L=l THEN 520 

260 GOSUB 50 

270 RO=RO+YI s CO=CO+X I 

280 IF R0>24 THEN R0=24 

290 IF R0<1 THEN R0=1 

300 IF C0<1 THEN C0=1 

310 IF C0>79 THEN 380 

320 ONSCREEN ( RO , CO ) 

330 IF Q=5 THEN L=l 

340 X=X+1 

350 IF X/6=-INT<X/6> THEN GOSUB 120 

360 GOTO 200 

370 REM *«•«■ SUCCESSFULLY COMPLETED MAZE «■•»* 

380 CLS 

390 FOR T=l TO 30 

400 PRINT TAB (33) 5 "YOU MADE IT ! ! ! " 

410 NEXT T 

420 S==S+1 

430 IF S>HS THEN HS=S 

440 DI=DI+50 

450 CLS 

460 PRINT "YOUR SCORE IS5";S 

470 PRINT 

480 PRINT "THE HIGH SCORE IS5"5HS 

490 PRINT 

500 GOTO 600 

510 REM #** LOSE GAME *** 

520 CLS 

530 PRINT "YOU HAVE POISON IVY! YOU LOSE," 

540 PRINT 

550 PRINT "YOUR FINAL SCORE IS3"fS 

560 PRINT 

570 PRINT "THE HIGH SCORE ISs";HS 
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580 


PRINT 


590 


S=0 


feOO 


PRINT "PRESS < ENTER > TO PLAY AGAIN." 


610 


GOSUB 1000 


620 


RESTORE 


630 


D1JM*=INKEY* 


640 


IF DUM*<>""THEN 630 


650 


CLS 


660 


GOTO 800 


670 


REM. *** INTRODUCTION **«• 


680 


SCREEN , , s W I D TH 80 


690 


CLS 


700 


PRINT "THE DIRECTION KEYS AREs " 


7.10 


PRINT 


720 


PRINT " U I 0" 


730 


PRINT " L" ' 


740 


PRINT " M , 


750 


PRINT 


760 


PRINT "PRESS < ENTER > TO BEGIN." 


770 


GOSUB 1000 


780 


CLS 


790 


DI^=125 


800 


FOR 1=^0 .TO 7s READ KT* ( I) 5 NEXT I 


810 


FOR I-=0 TO 7 s READ XT<I)sNEXT I 


820 


FOR I=-^0 TO 7 5 READ YT(I)sNEXT I 


830 


FOR T^--:l TO Dl 


840 


GOSUB 120 


850 


NEXT T 


860 


GOTO 190 


1 OOi 


:.) R*~INKEY*- 


101? 


:> IF R*<>CHR*(13) THEN 1000 


1020 FiJETLiRN 


2000 DA T A " , " , ■' , " , L , , I , U , J , M 


20 1 ( 


J DAT A 0,1,1,1, ,-1,-1,-1 


202t 


:> DATA 1,1,0, --1,-1,- 1,0,1 


TI-99/4A 


1 REM **«■ POISON IVY ri99/4A •«••»* 


10 Goto 960 


19 REM *** JOYSIICK ROUTINE *** 


20 f 
30 ? 
40 ' 


;all joyst (i,m,n) 
a;-o 

fI-=0 


50 1. 


.. 1 -^0 


60 . 


1.F M=-=.JI (LI) THEN 70 ELSE 110 


70 ; 


[F. N=I<I(LI)THEN 30 Ei...SE 110 


So : 


(.1^^>.T ill) 


90 ' 


•'1 = XY<.L1)- 


1 00 


RETURN 


110 


L1:-=LH-1 


1 20 


IF LK8 THEN 60 ' 


130 


X I ^-0 


140 


Vl=0 


150 


RETURN 


1 60 


X I =0 


169 


REM *** KEYBOARD F^lOUTINE «•** 


1/0 


Yl-^0 


1 SO 


LI=0 


190 


CALL KEY(3,K„P) 
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200 


Z=Z+1 


210 


IF Z/2=INT(Z/2)THEN 220 ELSE 230 


220 


eOSUB 330 


230 


IF F-0 THEN 190 ^ 


240 


IF K=B(LI)T"HEN 250 ELSE 280 


250 


XI=-XT(LI) 


260 


YI=XY(LI) 


270 


RETURN 


280 


LI=LI+1 


290 


IF LKS THEN 240 


300 


XI=0 


310 


YI=0 


320 


RETURN 


329 


REM *■»* DRAW IVY ROUTINE *** 


330 


C=INT(RND*32)+1 


340 


R=INr(RND*24)-H 


350 


IF R=12 THEN 360 ELSE 370 


360 


IF C=3 THEN 330 


370 


CALL HCHAR ( R , C , 1 36 ) 


380 


RETURN 


389 


REM **« MAIN LOOP/DRAW PLAYER **•» 


390 


Hl = 12 


400 


H2=3 


410 


R0=12 


420 


C0=3 


430 


L==0 


440 


CALL HCHAR < H 1 , H2 ,128) 


450 


CALL HCHAR ( RO , CO , 1 20 ) 


460 


IF L=l THEN 830 


470 


H1=R0 


480 


H2=--C0 


490 


z--=z + i 


500 


ON J 80SUB 20,160 


510 


R0=R0+X1 


' 520 


CO=CO-(-YI 


529 


REM *«■» DEFINE BOUNDARIES #** 


530 


IF R0<1 THEN 540 ELSE 550 


540 


R0=1 


550 


IF R0>24 THEN 560 ELSE 570 


560 


R0=24 


570 


IF C0<2 THEN 580 ELSE 590 


580 


C0=2 


590 


IF C0>32 THEN 660 


600 


CALL GCHAR(f?0,Ca,D> 


610 


IF D--=136 ri-IEN 620 ELSE 630 


620 


L= 1 


630 


IF Z/4==INT(Z/4>THEN 640 ELSE 650 


640 


GOSUB 330 


(b50 


GOTO 440 


659 


REM *** COMPLETED MAZE ***■ 


660 


CALL SCREEN (12) 


670 


CALL CLEAR 


680 


FOR T=l TO 25 


690 


PRINT " YOU MADE IT! ! ! " 


700 


PR I NT 


710 


NEXT T- 


720 


S=S+ 1 


730 


DI=DI+35 


740 


IF S>HS THEN 750 ELSE 760 



34 



10 AWESOME PROGRAMS FROM K-POWER 



750 HS-S 

760 PRINT 

770 PFaiMT "YOUR SCORE IS:";S 

780 PRINT 

790 PRINT "THE HI6H SCORE ISs"3HS 

800 PRINT 

eiO GOTO 910 

829 REM **-^ LOSE ROUTINE *•«••«• 

830 CALL SCREEN (9) 
840 CALL CLEAR 

850 PRINT "YOU HAVE POISON IVY." 

860 PRINT 

870 PRINT "YOUR FINAL SCORE TSii"§S 

880 PRINT 

890 PRINT "THE HI(3H SCORE ISs"5HS 

900 S-O 

910 PRINI 

920 PRINT "PRESS (ENTER) TO PLAY AGAIN„ " 

930 GOSUB 1380 

940 RESTORE 

950 GOTO 1170 

959 REN «•*•>> INTRODUCTION *J^-x- 

960 CALL CLEAR 

970 PRINT "TYPE YOUR ANSWER" 

980 F'RINT "THEN PRESS (ENTER) « " 

990 PRINT 

1000 PRINT "ARE YOU USING A JOYSTICK";; 

1010 INPUT J-$' 

1020 IF SEG:$:(J$^ 1h1)-^^"Y" THEN 1030 ELSE 1050 

1030 O'-^l 

1040 GO 10 1120 

1050 J -2 

1060 CALL CLEAR 

1070 PRINT "THE DIRECTION KEYS aREs " 

1080 PRINT 

1090 PRINT TAB<7)5"U I G" 

1100 f"'RINT TAB (7) 5 "0 L" 

1110 PRINT TAB (7) 3 "N , 

1120 PRINT 

1130 PRINT "PRESS (ENTER) TO BEGIN." 

1140 PRINT 

1150 GOSUB 1380 

1159 REM ^■^■^- INITIALIZE VARIABLES AND ARRAYS -^-x-k- 

1160 DP=^75 

1170 CALL SCREEN <2> 
1180 CALL CLEAR 
1190 FOR i^O 10 7 
1200 READ XY (I :• 
1210 READ KT(I> 
1220 READ J i (I ^ 
12 30 READ KI (I.) 
1240 READ B<I^ 
1250 NEXT I 
1260 RANDOMIZE 

1269 REM ^^-^ DEFINE CHARACTERS ■^•^■^ 

1 270 A $:^ " RFFF F FF Ff F FFf F F F " 
1 280 B-^^ " 1 2V45B339C5033 1 C " 
1290 CALL CHAR ( 1 28 , A*- / 
1300 CALL CHAR ( 1 "=-:6 , B:ir ) 
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1310 


CALL 


COLOR (13,2,2) 


1 320 


CALL 


COLOR (14,3,1) 


1330 


CALL 


COLOR (12, 10,1) 


1340 


FOR 1 


=1 TO DI 


1350 


GOSUB 330 


1 360 


NEXT 


T 


1370 


GOTO 


390 


1380 


INPUT R* 


1390 


RETURN 


1 400 


DATA 


■■-l,-^ 1,-4, 4, 85 


1 4 1 


DATA 


0,-1,0,4,73 


1420 


DATA 


1,-1,4,4,79 


1430 


DATA 


~l,0,~4,O,74 


1440 


DATA 


1 , , 4 H , 76 


1450 


DATA 


-1,1, -4, --4, 77 


1460 


DA TA 


, 1 , , --4 , 44 


1470 


DATA 


1,1,4, -4 , 46 



TRS-80 Color Computer 

1 REM «** POISON IVY TRS-SC COLOR *** 
10 GOTO 3000 

99 REM ♦** JOYSTICK ROUTINE *** 

100 H=JOYSTK(0) 
110 V=J0YSTK(1) 

120 IF H<15 THEN YI=0:XI=-1 :RETURN 

130 IF H>47 THEN YI=0! X 1=1 ; RETURN 

140 IF V<15 THEN XI=0s YI=-1 sRETURN 

150 IF V>47 THEN XI=0:YI=i : RETURN 

160 YI=0:X 1=0: RETURN 

199 REM ♦*♦ READ KEYBOARD ROUTUINE **♦ 

£00 LI=0:XI=05YI=0 

£10 KE*=INKEY* 

££0 IF KE*="" THEN RETURN 

£30 IF KE*=KT*(LI) THEN YI=YT<LI ) :XI=XT (LI) :RETURN 

£40 LI==LI + 1:IF LK8 THEN £30 

£50 RETURN 

399 REM *** DRAW IVY (CAN YOU BELIEVE IT?) »*« 

400 X=RND(510) 

410 IF X=££4 THEN 400 
4£0 C=l£8+16#(0)+15 
430 PRINTeX,CHR*(C) ; 
440 RETURN 

499 REM *♦» MAIN LOOP #** 

500 CO=0sRO=14:L=0 
510 SET (CO, RO, 5) 
5£0 IF L=l THEN £000 
530 FOR D=l TO £ 
540 NEXT D 

550 RESET ( CO, RO) 

560 ON J GOSUB 100, £00 

570 RO=RO+YI:CO=CO+XI 

580 IF R0>31 THEN R0=31 

590 IF RO=<0 THEN RO=0 

600 IF CO(0 THEN 00=3 

610 IF C0>63 THEN 1000 

6£0 IF POINT (CO, R0)=1 THEN L=l 

630 X=X+1 

640 IF X/6=INT(X/6) THEN GCSUB 400 

650 GOTO 510 



36 



10 ANVESOME PROGRAMS FROM K-POWER 



999 REM *** COMPLETED MAZE *** 

1000 CLS 
FOR T=l TO 100 
PRINT "YOU MODE IT! "5 
FOR D=l TO 10 
NEXT D 
NEXT T 
CLS:S=S+1 

PRINT "YOUR SCORE IS:"S 
PRINT 

IF S>HS THEN HS=S 
PRINT "THE HIOH SCORE IS:"HS 
DI=DI+20 
PRINT 
BOTO 2080 

REM *** YOU LOSE *** 
CLS 

YOU LOSE, YOU HAVE POISON IVY. 



1010 
1020 
1030 
1040 
1050 

1060 

1070 
1060 
1090 
1100 
1110 

1120 
1130 
1999 

2000 
2010 

2020 
2030 
2040 
2050 
2060 
£070 
2080 
21390 

2100 

2110 
2120 
2130 
2140 
2999 

3000 
3010 

3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 

3100 

3110 
3120 
3130 
3140 
3150 
3159 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3999 

4000 
4010 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

S=0 

PRINT 

GOSUB 



"YOUR FINAL SCORE IS5"S 
"THE HIGH SCORE IS:"HS 



(ENTER) TO PLAY AGAIN. 



"PRESS 

4000 

RESTORE 

DUM*=INKEY* 

IF DUM*<>"" THEN 2110 

CLS(0) 

GOTO 3160 

REM *** INTRODUCTION *** 

CLS 

PRINT "ARE YOU USING A JOYSTICK 

J*=INKEY*:IF J*="" THEN 3020 

IF J*="Y" THEN J= Is GOTO 3140 

IF J*<> "Y" THEN J=2 

CLS 

PRINT "THE DIRECTION KEYS AREs" 

PRINT 

PRINT "U I 

PRINT "J 

PRINT "M , 

PRINT 

PRINT "PRESS 

GOSUB 4000 

CLS(0) 

DI=50 



(Y/N) 



0" 



0" 

L" 



<ENTER) TO BEGIN. 



TO 
TO 
TO 



REM ♦** 
FOR 1=0 
FOR 1=0 
FOR 1=0 
FDR T=l 
GOSUB 400 
NEXT T 
GOTO 500 
REM »** WAIT 
INPUT R* 
RETURN 



LOAD DIRECTION VARIABLES ♦** 
TO 7s READ KT*(I) sNEXT 

XT<I) :NEXT 

YT(I):NEXT 



7 ! READ 
7 : READ 
DI 



ROUTINE *** 
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5000 DflTfl ",",". ",L, 0,1, U, J, M 
5010 DftTft 0,1,1,1,0,-1,-1,-1 
5020 DfiTfl 1,1,0,-1,-1,-1,0,1 

TRS-80 Model III and Model 4 

1 REM ♦** POISON IVY TRS-SO MODELS 3 AND 4 CASS. AND MODEL 3 DISK BASIC »♦« 
10 GOTO 3000 

199 REM *** READ KEYBOARD ROUTINE *** 

200 LI=0:XI=0: YI=0 
210 KE*=INKEY* 

220 IF KE*="" THEN RETURN 

230 IF KE*=KT«(LI) THEN YI=YT (LI ): XI=XT (LI ): RETURN 

240 LI=LI + l:IF LK8 THEN 230 

250 RETURN 

399 REM **♦ DRAW IVY ♦♦« 

400 X=RND(1022) 

410 IF X=512 THEN 400 
430 PRINT@X,CHR*(191) ; 
440 RETURN 

499 REM **« MAIN LOOP *#« 

500 C0=0:R0=25:L=0 
510 SET(C0,R0) 

520 FOR D=i TO 2 

530 NEXT D 

540 IF L=l tHEN 2000 

550 RESET (CO, RO) 

560 GOSUB 200 i 

570 RO=RO+YI:CO=CO+XI 



5io 


IF R0>47 THEN R0=47 




590 


IF R0<0 THEN R0=0 




600 


IF C0<0 THEN C0=0 




610 


IF CO > 127 THEN 1000 




620 


IF POINT (CO, RO) THEN L=l 




630 : 


<=X+1 




640 


IF X/6=INT(X/6) THEN GOSUB 400 




650 GOTO 510 




999 REM *** COMPLETED MAZE *** 




1000 


CLS 




1010 


FOR T=l TO 100 




1020 


PRINT "YOU MADE IT! "5 




1030 


FOR D=l TO 10 




1040 


NEXT D 




1050 


NEXT T 




1060 


CLS:S=S+1 




1070 


PRINT "YOUR SCORE IS: "S 




1080 


PRINT 




1090 


IF S>HS THEN HS=S 




1100 


PRINT "THE HIGH SCORE IS: "HS 




1110 


DI=DH-50 




1120 


PRINT 




1130 


GOTO 2080 




1999 


REM *** YOU GET THE ITCHES *♦* 




2000 


CLS 




2010 


PRINT "YOU LOSE! YOU HAVE POISON IVV 


' 1 1 1 11 


2020 


PRINT 




2030 


PRINT "YOUR FINAL SCORE IS: "S 




2040 


PRINT 




2050 


PRINT "THE HIGH SCORE IS: "HS 




2060 


PRINT 
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2070 


S=«0 






2080 


PRINT 


"PRESS (ENTER) 


TO PLAY AGAIN. 


2090 


GOSUB 


4000 




2100 


RillORE 




2110 


CLS 






2120 


BQTO 3160 




2999 


REM **♦ INTRODUCTION 


**# 


3000 


CLS 






3060 


PRINT 


"THE DIRECTION 


KEYS are:" 


3070 


PRINT 






3080 


PRINT 


TAB(7)"U I 


0" 


3090 


PRINT 


TAB (7) "J 


L" 


3100 


PRINT 


TAB(7)"M , 


II 


3110 


PRINT 






3120 


PRINT 


"PRESS (ENTER) 


TO BEGIN."; 


3130 


B05UB 


4000 




3140 


CLS 






3150 


DI=100 




3159 


REM *** LOAD DIRECTION VARIABLES ** 


3160 


FOR 1 = 


=0 TO 7: READ KT*(I):NEXT 


3170 


FOR 1 = 


=0 TO 7: READ XT(I):NEXT 


3180 


FOR 1 = 


=0 TO 7: READ YT(I):NEXT 


3190 


FOR T= 


=1 TO DI 




3200 


GOSUB 


400 




3210 


NEXT ■ 


T 




3220 


GOTO 


500 




3999 


REM *** WAIT ROUTINE 


«*« 


4000 


INPUT 


R* 




4010 


RETURN 




5000 


DATA 


",",". ",L,0, I, U 


,J,M 


5010 


DATA 


0,2,2,2,0,-2,-2 


,-2 


5020 


DATA 


2,2,0,-2,-2,-2, 


:),2 



IVY VIC-20 *♦* 



VIC-20 

i REM *** POISON 
10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE **♦ 

100 POKE 37154, 127 

110 XT54=PEEK(3715£)flND 128 

120 POKE 37154,255 

130 XT?C=XT?4 OR (PEEK (37137) AND 127) 

140 XI=SGN(XT-/.flND128)-S6N(XT:4flND16) 

15i YI=SGN(XT%flND8)-SGN(XT?4fiND4) 

160 RETURN 

199 REM ♦** REPID KEYBOARD ROUTINE ♦«* 

200 XI=0:YI=0:LI=0 
£10 GET KE* 

£20 IF KE*=""THEN RETURN 

£30 IF KE*=KT*(LI) THEN YI=YT (LI) : XI=XT(LI) : RETURN 

240 LI=LI+i:IFLI<8 THEN 230 

250 RETURN 

399 REM ♦** DRAW IVY *♦* 

400 X=INT(RND(i)»£2) 
410 Y=INT(RND(1)*£3) 

420 IF X=0 fiND Y=ll THEN 400 
430 IF X=l AND Y=ll THEN 400 
440 POKE SB+X+££*Y, 88 
450 POKE CB+X+££*Y, 5 
4S0 RETURN 
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499 

500 

510 
520 
530 
540 
550 
560 
570 
580 
590 

600 

610 
620 
&30 
640 
650 
999 

1000 
1010 
1020 

1030 
1050 
1060 
1070 
1080 
1090 
1100 
1110 

1120 
1130 
1140 
1150 
1999 

2000 
2010 

2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 

2100 

2110 
2120 
2130 
2140 
2299 

3000 
3010 

3020 
3030 
3040 
3050 
3060 
3070 
3080 



REM »»* MAIN LOOP *«* 

CO*0!RO=11:L=0 

POKE CB+H1+22»H2,0 

POKE CB+C0+22*R0, 1 

POKE SB+C0+22»R0, 43 

IF L=l THEN 2000 

H1»C0:H2=R0 

ON J GOSUB 100,200 

RO=RO-YI:CO=CO-XI 

IF R0>22 THEN R0=22 

IF RO<0 THEN RO=0 

IF CO<0 THEN CO=0 

IF C0>21 THEN 1000 

IF PEEK(SB+C0+22*R0)=88 THEN L=l 

X=X+1 

IF X/6=INT(X/6)THEN BOSUB 400 

GOTO 510 

REM **♦ COMPLETED MAZE *♦♦ 

PRINT CHR*(147) 

FOR T=l TO 100 

PRINT "YOU MADE IT! "; 

POKE 36879, INT(RND(l)*7)+7 

NEXT T 

S=S+1 

IF S>HS THEN HS=S 

DI=DI+50 

PRINT CHR*(147) 

POKE 36879,232 

PRINT "YOUR SCORE IS:"S 

PRINT 

PRINT "THE HIGH SCORE IS:"HS 

PRINT 

GOTO 2080 

REM *♦* LOSE GAME *** 

PRINT CHR*(147) 

PRINT "YOU HAVE POISON IVY!" 

PRINT 

PRINT "YOUR FINAL SCORE IS:"S 

PRINT 

PRINT 

PRINT 

S=0 

PRINT " (SHIFT) 

GOSUB 4000 

RESTORE 

GET DUM$ 

IF DUM*<> ""THEN 2110 

PRINT CHR*(147) 

GOTO 3170 

REM *** INTRODUCTION ♦♦* 

PRINT CHR*(147) 

PRINT "USING A JOYSTICK (Y/N) " 

GET J*! IF J*=""THEN 3020 

IF J$="Y"THEN J=lsGOTO 3140 

IF J*<>"Y"THEN J=£ 

PRINT CHR*(147) 

PRINT "THE MOTION KEYS ARE:" 

PRINT 

PRINT "U I 0" 



"THE HIGH SCORE IS:"HS 



TO PLAY AGAIN" 
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3090 
3100 
3110 
31S0 
3130 
3140 
3159 
31&0 
3170 
3179 
3180 
3190 
3200 
3£20 
3230 
3240 
3250 
3999 

4000 
4010 

4020 

5000 
5010 

5020 



L" 

II 



PRINT "J 

PRINT "M , . 

PRINT 

PRINT "PRESS (SHIFT) TO BEGIN" 

GOSUB 4000 

PRINT CHR*(147) 

REM *** INITIALIZE SCREEN AND SCORE VARIABLES *** 

SB-7680 : CB°'3a400 : D I » 1 00 

POKE 36879, 9: POKE 650,128 

REM *** LOAD DIRECTION VARIABLES *** 

FOR 1=0 TO 7:READ KT*<I>:NEXT 

FOR 1=0 TO 7: READ XT(I)sNEXT 

FOR 1=0 TO 7: READ YT<I):NEXT 

FOR T=l TO DI 

GOSUB 400 

NEXT T 

GOTO 500 

REM *** WAIT ROUTINE *** 

WAIT 653, 1 . 

WAIT 653, 1, 1 

RETURN 

DATA I,u, J,M, ", ", ".'",L,0 

DATA 0, 1, 1, 1,0, -1,-1,-1 

DATA 1,1,0,-1,-1,-1,0,1 
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BONUS PROGRAM #3 

WORD SCRAA4BLE 

WORD SCRAMBLE is something like computer alphabet soup. 
Duons? No, uh,..nsoud? Mo, oh! Sound! You got it and 
you'll get 'em all when you sink your mind into WORD 
SCRAMBLER. This mind teaser shows you a line o-f mixed up 
letters that you have to make a wrod. >. „ uh. . . ward out of , 
Each time you guess a letter 's correct location, the 
computer prints a "1" underneath it. By using clues, 
you'll solve even the most challenging words. Each time 
you correctly, pick the entire word, the computer shows you 
how many tries it took you to get it. To skip a word, 
type "N" and then hit ENTER or RETURN. 



ADAM 

1 REM *** WORD SCRAMBLE ADAM *** 

10 HOME 

20 PRINT "WORD SCRAMBLE" 

30 PRINT 

40 PRINT "Try to unscramble words by" 

45 PRINT "typing in guesses. The" 

50 PRINT "computer will show you which" 

60 PRINT "letters are in the correct" 

65 PRINT "places." 

70 PRINT "Use only CAPITALS!" 

80 PRINT "Example: The computer prints:" 

85 PRINT "SUEGS" 

90 PRINT "The actual word is GUESS." 
100 PRINT "If you type: GEUSS, the" 
105 PRINT "computer will respond with" 
110 PRINT "'lOOir, meaning the first," 
120 PRINT "fourth, and fifth letters" 
130 PRINT "are in the correct locations." 
140 PRINT 

150 PRINT "Press any key to continue." 
160 GET n$ 
170 u$ = "" 

179 REM *** read scrambled word *** 

180 READ w$ 

190 IP w$ = "0" THEN RUN 

199 REM *** read actual word *** 

200 FOR X = 1 TO LEN(w$) 
210 READ ch(x) 

220 u$ = u$+CHR$(ch(x)) 

230 NEXT X 

240 g = 1 

250 HOME 

260 PRINT "Press 'N' then (RETURN) for" 

265 PRINT "a new word."' 

269 REM *** guess loop *** 

270 PRINT 

280 PRINT "The scrambled word is:" 
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290 PRINT 

500 PRINT " "; w$ 

310 PRINT 

320 r = 

330 PRINT "Type your guess, the (RETURN)." 

340 PRINT 

350 INPUT g$ 

360 IP g$ = "N" THEN 170 

370 IF LEN(g$) > LEN(w$) THEN PRINT "Guess too long!": GOTO 280 

380 IP LEN(g$) < LEN(w$) then PRINT "Guess too short!": GOTO 280 



fi II , 



> 



390^ PRINT 

400 FOR X = 1 TO LEN(w$) 

410 IP MID$(g$, X, 1) = MID$(u$, X, 1) THEN GOSUB 480 

420 IP MID$(g$, X, 1)<> MID$(u$, x, 1) THEN GOSUB 510 

430 NEXT X 

440 PRINT 

450 IP r = LEN(g$) THEN 530 

460 g = g+1 

470 GOTO 310 

479 REM *** correct letter routine *** 

480 PRINT "1"; 
490 r = r+1 
500 RETURN 

509 REM *** incorrect letter routine *** 
510' PRINT "0"; 
520 RETURN 
530 HOME 

540 PRINT "You got it in "; g; " turn(s)!" 

550 PRINT 

560 PRINT "Press any key to play again." 

570 GET n$ 

580 GOTO 170 
1000 DATA LETCICER,69,76,69,67,84,82,73,67,SGEAR00UUT,79,85,84,82,65, 
71,69,79 

1010 DATA 85,83,ACTANPEU0L,67,65,78,84,65,76,79,85,80,69 
1020 DATA LABTEKSABL,66,65,83,75,69,84,66,65,76,76 

1030 DATA TANIRUC,67,85,82,84,65,73,78,TAMELPAC,80,76,65,67,69,77,65,84 
1040 DATA 0NUSHCI,67,85,83,72,73,79,78,W0LCRADY,67,79,87,65,82,68,76,89 
1050 DATA DELIS,83,76,73,68,69,TARIUG,71 ,85 ,73,84,65 ,82 ,0WELT, 84, 79 ,87, 
69,76 

1060 DATA MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71 ,89 
1070 DATA AGRTEP,67,65,82,80,69,84,ARERES,69,82,65,85,69,82 
1080 DATA ELTKET,75,69,84,84,76,69,REUICTP,80,73,67,84,85,82,69 
1090 DATA IISGNYP,83,73,71 ,78,73,70,89,0RDAI,82,65,68,73,79 
1100 DATA ZEERPAT,84,82,65,80,69,90,69,0 

Apple II and Apple He 

1 REM *** WORD SCRAMBLE APPLE *** 

10 HOME 

20 PRIIMT "WORD SCRAMBLE" 

30 PRINT 

40 PRINT "TRY TO UNSCRAMBLE WORDS BY TYPINO" 

50 PRINT "IN GUESSES. THE COMPUTER WILL SHOW YOU" ■ 

60 PRINT "WHICH LETTERS ARE IN THE CORRECT PLACES." 

70 PRINT 

80 PRINT "EXAMPLE; THE COMPUTER PRINTS : SUESS" 

90 PRINT "THE ACTUAL WORD IS GUESS." 

100 PRINT "IF Y OU TYPE: GEUSS, THE COMPUTER WILL" 
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110 PRINT "RESPOND WITH '10011', MEANING THE" 

120 PRINT "FIRST, FOURTH, AND FIFTH LETTERS ARE" 

130 PRINT "IN THE CORRECT LOCATIONS." 

140 PRINT 

150 PRINT "PRESS ANY KEY TO CONTINUE." 

160 GET N* 

170 U* = "" 

179 REM *** READ SCRAMBLED WORD *** 

180 READ W* 

190 IF W* = "O" THEN RUN 

199 REM **♦ READ ACTUAL WORD *** 

200 FOR X = 1 TO LEN vW*) 
210 READ CH(X) 

220 U* = U* + CHR* (CH(X)) 

230 NEXT X 

240 G = 1 

250 HOME 

260 PRINT "PRESS 'N' THEN (RETURN) FOR A NEW WORD" 

269 REM »** GUESS LOOP *** 

270 PRINT 

280 PRINT "THE SCRAMBLED WORD IS: " 

290 PRINT 

300 PRINT " "W* 

310 PRINT 

320 R = 

330 PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)." 

340 PRINT 

350 INPUT G* 

360 IF G* = "N" THEN 170 

370 IF LEN (6*) > LEN (W*) THEN PRINT "GUESS TOO LONG!": GOTO 280 

380 IF LEN (G*) < LEN (W*) THEN PRINT "GUESS TOO SHORT!": GOTO 280 

390 PRINT " ",- 

400 FOR X = 1 TO LEN (W*) 

410 IF MIDt- (G*,X,1) = MID* (U*,X,1) THEN GOSUB 480 

420 IF MID* (G*,X,1) < > MID* (U*,X,1) THEN GOSUB 510 

430 NEXT X 

440 PRINT 

450 IF R = LEN (G*) THEN 530 

460 G = G + 1 

470 GOTO 310 

479 REM »** CORRECT LETTER ROUTINE »** 

480 PRINT "1"5 
490 R = R + 1 
500 RETURN 

509 REM *** INCORRECT LETTER ROUTINE *•«••» 

510 PRINT "O": 
520 RETURN 
530 HOME 

540 PRINT "YOU GOT IT IN "G" TURN(S)!" 

550 PRINT 

560 PRINT "PRESS ANY KEY TO PLAY AGAIN. " 

570 GET N* 

580 GOTO 170 

1 000 DATA LETC I CER , 69 , 76 , 69 , 67 , 84 , 82 , 73 , 67 , SGEAROOUUT , 79 , 85 , 84 , 82 , 65 , 

71,69,79 
1010 DATA 85, 83, ACT ANPEUOL, 67, 65, 78, 84, 65, 76, 79, 85, 80, 69 
1020 DATA LABTEKSABL,66,65,83,75,69,84,66,65,76,76 
1 030 DATA TAN I RUC , 67 , 85 , 82 , 84 , 65 , 73 , 78 , TAMELP AC , SO , 76 , 65 , 67 , 69 , 77 , 

65,84 
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1 REM *** WORD SCRAMBLir ATARI **« 

10 DIM U*<li) ,G*(15) ,W*<.1.1) 

20 DIM TEMP*(1) ,R$<i) 

30 PRINT CHR$(125) 

40 PRINT "WORD SCRAMBLE" 

50 PRINT 

60 PRINT "TRY TO UNSCRAMBLE SaIORDS BY TYPING" 

70 PRINT "YOUR BUESSES, THE COMPUTER" 

80 PRINT "SHOWS YOU WHICH LETTERS ARE" . 

90 PRINT "IN THE CORRECT PLACES." 

100 PRINT 

110 PRINT "EXAMPLES THE COMPUTER PRINTS: SUEOS" 

120 PRINT "THE ACTUAL WORD IS 8UESS. " 

130 PRINT "IF YOU TYPE; GEUSS, THE COMPUTER WILL" 

140 PRINT "RESPOND WITH '10011', MEANING THE" 

150 PRINT "FIRST, FOURTH, AND FIFTH LETTERS" 

160 PRINT "ARE IN THE CORRECT LOCATIONS,," 

170 PRINT "PRESS (RETURN) TO CONTINUE. " 

180 GOSUB 2000 

190 U.f="" 

199 REM *** READ SCRAMBLE WORD *** 

200 READ W-*. 
210 IF W*="0" THEN RUN 

219 REM *** READ ACTUAL WORD *** 

220 FOR X=l TO LEN(W-15) 
230 READ CH 
240 TEMP*=CHR$ (CH) 
250 U* ( X , X ) ^-■=TEMPt- 
260 NEXT X 
270 G^l 

280 PRINT CHR4;(125) 
290 PRINT "PRESS 'N' THEN (RETURN) FOR NEW WORD" 

299 REM *** GUESS LOOP *■!<-* 

300 PRINT 

310 PRINT "THE SCRAMBLED WORD ISs " 
320 PRINT 
330, PRINT W$ 
340 PRINT 
350 R~=0 

360 PRINT "TYPE YOUR GUESS,, THEN PRESS (RETURN)"; 
380 INPUT G-$ 
390 IF G*=:"N" THEN 190 

400 IF LEN(G$) >LEN(W*) THEN PRINT "GUESS TOO LONG i " n GOTO 310 
410 IF LEN(Gf)<LEN(W$) THEN PRINT "GUESS TOO SHORT !" r, GOTO 310 
420 PRINT 

430 FOR, X^==l TO LEN(W$> 
440 IF G*(X,X)^U*(X,X) 
450 I F 6$ ( X , X ) < >U*. ( X , X ) THEN GOSUB 540 



THEN PRINT 


"GUESS 


THEN PRINT 


"GUESS 


THEN GOSUB 


510 
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460 NEXT X 

470 PRINT 

480 IF R=LEN(B*-) THEN 560 

490 6=6+1 

500 60T0 300 

509 REM *»* CORRECT LETTER ROUTINE #** 

510 PRINT "1"; 
520 R=R+1 
530 RETURN 

539 ,REM *«•«• INCORRECT 

540 PRINT "0"; 
550 RETURN 
560 PRINT GHR*(125) 
570 PRINT "YOU GOT IT IN 
580 PRINT 

590 PRINT "PRESS (RETURN) 
600 GOSUB 2000 
610 GOTO 190 

1 000 DATA LETC I CER , 69 , 76 , 69 ,6 
71,69,79 

1010 DATA 35, S3, SCTANPEUOL, 67, 65, 78,84,65, 
1 020 DATA LABTEKSABL , 66 , 65 , 33 , 75 , 69 , 34 , 66 , 65 , 76 , 76 



LETTER ROUTINE ■*-»* 



';G5 " TURN(S) f " 
TO PLAY AGAIN. ' 



84 , 82 , 7; 



, 67 , SSEAROOUUT , 79 , 85 ., 84 , 82 , 65 . 



•7A TO 



, 80 , 69 



1030 DATA TANIRUC,67,85,S2,S4,, 



'3 , 73 , TAMELPAC , SO , 76 , 65 , 6: 



, 69 , 77 



1 040 DATA ONUSHC I , 67 , 85 , 83 , 72 , 73 , 79 , 78 , WOLCR ADY ,67,79,87,65,82, 68 

1 050 DATA DELIS, 83 , 76 , 73 , 68 , 69 , T AR I U6 , 7 1 , 85 , 73 „ 84 , 65 , 82 , OWELT , 84 , 

69,76 

i 060 DATA MUTE30C , 67 , 79 , S3 , 84 , 85 , 77 , 69 , TOGO I LB , 66 , 73 , 79 , 76 , 79 , 7 1 , 

1 070 DATA ACRTEP , 67 , 65 , 82 , SO , 69 , 84 , ARERES , 69 , 82 , 65 , 83 , 69 , 82 

1 080 DATA ELTKET , 75 , 69 , 84 , 84 , 76 , 69 , REU I DTP , SO , 73 , 67 , 84 , 35 , 32 , 69 

1 090 DATA 1 1 SGN YF , 33 , 73 , 7 1 , 78 , 73 , 70 , 89 , ORDA 1,82, 65 , 68 , 73 , 79 

1 1 00 DATA ZEERP AT , 84 , 82 , 65 , SO , 69 , 90 , 69 , 

1999 REM *** WAIT ROUTINE *** 

2000 INPUT R* 
2010 RETURN 



, 65 , 34 
, 76 , 89 
79 , 87 , 



IBM PC 



10 

20 

30 

40 

50 

60 

70 

80 

90 

i OC 

IK 

i2<: 

13( 

1 4(: 

15( 
16( 

17(: 
i8f: 

1 9( 

20<: 

21 ( 
22( 



EM * 

LS 

'<INT 

^■INT 

PINT 

PINT 

RINT 

RINT 

RINT 

PRINT 

PRINT 

PRINT 

PRINT 

PR I NT 

PRINT 

PRINT 

PRINT 



•x- WORD SCRAMBLE lBf< 
"WORD SCRAMBLE" 



PC *•! 



"UNSCRAMBLE WORDS BY TYPING" 
"YOUR GUESSES, THE COMPUTER' 
"SHOWS YOU WHICH LETTERS ARE' 
"CORRECT, FOR EXAMPLE 5 " 



"THE COMPUTER PRINTS, 'SUEGS 



"THE ACTUAL WORD IS 'GUESS'," 
"IF YOU TYPE 'GEUSS', THE" 
"COMPUTER WILL RESPOND WITH" 
" ' 10011 ' ,: MEANING THE FIRST, " 
"FOURTH, ?;< FIFTH LETTERS ARE IN" 
"CORRECT LOCATIONS. PRESS ANY" 
"KEY TO BEGIN. " 

A:«=INKEY:?: 

IF A:*="''- THEN 180 

[,]■$■=" " 

REM *** READ SCRAMBLED WORD *** 

READ W* 

IF.W*=="0" THEN RUN 
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240 FOR X==l TO LEN(W:I^) 

250 READ CH(X) 

260 U:*^^U*+CHR4^ (CH ( X ) > 

270 NEXT X 

280 G^l 

290 CLS 

300 PR I N T " PRESS N ' i- ( Eh4TER ) " 

3:10 PRINT "FOR A NEW «/JORD« " 

320 REN *«•«• 6UESS LOOP •«•*•«• 

330 PRINT 

340 PRINT "THE SCRAMBLED WORD ISs " 

350 PRINT 

360 PRINV " "Wt 

370 PRINT 

380 R^O 

390 PRINT ''TYPE YOUR GUESS," 

400 PRINT "THEN PRESS (ENTER)-" 

410 PRINT' 

420 INPUT B$ 

430 IF 8:?l^:^^"N" THEN 200 . 

440 IF LEN<6t) >LEN(N:$:) THEN PRINT "GUESS TOG LONG! "s GO TO 340 

450 IF LEN(G$)<LEN(W$-) THEN PRINT "GUESS TOO SHORT !"sGGTQ 340 

460 PRINT" " "s 

470 FOR X'^^^l TO LEN(W1^> 

480 I F 11 1 D$ a3:i^ ., X , 1 ) ==^N I Df ( U:*: , X , I ) THEN GOSUB 560 

490 I F M 1 1)1^ ( 8:$: , X ,, 1 ) < > N U)$i 1}-$ , X , 1.) T HEN GOSUB 600 

500 NEXT' X 

510 PRINT 

520 IF R:-4...EN'.G:*^) THEN 620 

530 G^^G-M 

540 GOTO 330 

550 REN -^^-^ CORRECT LETTER ^-^-^ 

560 PRINT "1";; 

570 R::^R-M 

580 RETURN 

590 REN -^-^i^- INCORRECT LETTER J^-^-^- 

600 PRINT "O"!; 

610 RETURN 

620 CLS 

630 PRINT "GOT IT IN "G" TURN(S)" 

640 PRINT 

650 PRINT "PRESS AN^ KEY TO RUN AGAIN" 

660 A-$:-^:INI<EY$ 

6/0 if v^t^:"'' THEN 660 

680 GOTO 200 , • 

1000 DATA LETCICER. 69, 76h69..67 ,84,82,73,67 

1010 DATA SGEAROGUUT , 79 , 85 ,8^1 , 82, 65 , 7 1 .,69,79,85,83 

1 020 DA T A AC I AIMPEUOL , 6 7 , 65 , 78 , 84 ^ 65 . 76 ,79,85, 80 , 69 

1 030 DATA ALBTEKSABL , 66 , 65 . 83 ., 75 , 69 , 84 , 66 , 65 ,7 6 , 76 

1 040 DA I" A ^ TAN I RUC h 6/ , 85 , 82 , 84 , 65 , 73 , 78 , T ANELPAC , SO ^ 76 h 65 , 6 7 , 69 , 77 , 6.5 , 84 

1 050 DA T A ONUBCH I . 67 . 85 , 83 , 72 , 73 , 79 , 78 , NOLCR AD Y , 67 . 7 9 , 87 , 65 , 82 , 68 , 7 6,89 

1 060 DA 1 A DEL I S , 83 , 76 , 73 , 68 , 69 , T AR I UG , 7 1 , 85 , 73 , 84 ,65 , 82 , OIaIELT , 84 , 79 , 8 7 , 

69.76 

1 070 DA I A NUTESOC , 67 ,79 , 83 ,84,85, 77 , 69 , YOGO I LB , 66 , 73 , 7 9 , 7 6 , 7 9 , 7 1 , 89 

1 080 DA r A ACR TEP , 6 7 , 65 , 82 , 80 , 69 , 84 , ARERES , 69 , 82 , 65 , BZ , 69 , 82 

1090 DATA ELTKET,75,69,S^I ,84.,76,69,REUICTP,80,73,67,84,85,82,69 

1 100 DATA 1 1 SGN yF , SZ , 73 ,71, 78 , 73 , 70 , 89 , ORDAI , 82 , 65 , 68 , 7'5 , 79 ' 

1 1 1 O DATA ZEERPAT , 84 , 82 , 65 , 80 , 69 , 90 , 69 .0 
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Commodore 64 

1 REM *♦♦ WORD SCRAMBLE 64 ♦*♦ 
10 PRINT CHR*(147) 

"WORD SCRAMBLE" 



£0 
30 
40 
50 
60 
70 
60 
90 

100 
110 

120 
130 
140 
150 
160 
170 
179 
180 
190 
199 

£00 

£10 
££0 
£30 
£40 
£50 
£60 
£69 
£70 
£80 
£90 

300 

310 
3£0 
330 
340 
350 
360 
370 
380 
390 

400 

410 
4£0 
430 
440 
450 
460 
470 
479 
480 
490 

500 

509 



"TRY TO UNSCRAMBLE WORDS BY TYPING" 

"IN GUESSES. THE COMPUTER WILL SHOW YOU" 

"WHICH LETTERS ARE IN THE CORRECT PLACES. 



SUE6S' 



"EXAMPLES THE COMPUTER PRINTS, 

"THE ACTUAL WORD IS 'GUESS'." 
"IF YOU TYPE 'GEUSS', THE COMPUTER WILL" 
"RESPOND WITH '10011', MEANING . THE" 
"FIRST, FOURTH, AND FIFTH LETTERS ARE" 
"IN THE CORRECT LOCATIONS." 



"PRESS 

3000 



(SHIFT) TO CONTINUE. 



FOR A NEW WORD" 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GOSUB 

U*="" 

REM *** READ SCRAMBLED WORD #** 

READ W$ 

IF W*="0" THEN RUN 

REM ♦♦♦ READ ACTUAL WORD ♦♦* 

FOR X=l TO LEN(W*). 

READ CH(X) 

U«=U*+CHR*(CH(X>) 

NEXT X 

G=l 

PRINT CHR*(147) 

PRINT "PRESS 'N' THEN (RETURN) 

REM *** GUESS LOOP *** 

PRINT 

PRINT "THE SCRAMBLED WORD IS:" 

PRINT 

PRINT 

PRINT 

R=0 

PRINT 

PRINT 

INPUT G* 

IF e$="N" THEN 170 

IF LEN(G*))LEN(W*) 

IF LEN(G*) <LEN(W$) 

PRINT " •■; 

FOR X=l TO LEN(W*) 

IF MID*(G*, X, 1)=MID*(U*, X, 1) THEN GOSUB 480 

IF MID*(G*, X, 1) (>MID*(U$,X, 1) THEN GOSUB 510 

NEXT X 

PRINT 

IF R=LEN(G*) THEN 530 

G=G+1 

GOTO £70 

REM *** CORRECT LETTER ROUTINE *** 

PRINT "i"3 

R=R+1 

RETURN 

REM *** INCORRECT LETTER ROUTINE *** 



"W* 



■TYPE YOUR GUESS, THEN PRESS (RETURN) 



THEN 
THEN- 



PRINT 
PRINT 



"GUESS 
"GUESS 



TOO 
TOO 



LONG! "sGOTO £80 
SHORT: "sBOTO £80 
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510 PRINT "0"? 

5£0 RETURN 

530 PRINT CHR*(147) 

540 PRINT "YOU GOT IT IN"B"TURN(S) ! " 

550 PRINT 

560 PRINT "PRESS (SHIFT) TO PLOY flGfllN. " 

570 eOSUB 3000 

580 eOTO 170 

1000 DflTfl LETCICER, 69, 76, 69, 67, 84, 82, 73, 67, SGEfiROOUUT, 79, 85, 84, 82, 65, 71, 

1010 DflTfl 85, 83, flCTONPEUOL, 67, 65, 78, 84, 65, 76, 79, 85, 80, 69 

1020 DflTfl LflBTEKSflBL, 66, 65, 83, 75, 69, 84, 66, 65, 76, 76 

1030 DflTfl TflNIRUC, 67, 85, 82, 84, 65, 73, 78, TflMELPflC, 80, 76, 65, 67, 69, 77, 65, 84 

1040 DflTfl ONUSHCI, 67, 85, 83, 72, 73, 79, 78, WOLCRflDY, 67, 79, 87, 65, 82, 68, 76, 89 

1050 DflTfl DELIS, 83, 76, 73, 68, 69, TflRIUG, 71, 85, 73, 84, 65, 82, DWELT, 84, 79, 87, 

CQ **7C 7 7 7 7 

1060 DflTfl MUTES0C,67,79, 83, 84, 85, 77,69, YOGOILB, 66, 73, 79, 76,79,71,89 

1070 DflTfl flCRTEP, 67, 65, 82, 80, 69, 84, flRERES, 69, 82, 65, 83, 69, 82 

1080 DflTfl ELTKET, 75, 69, 84, 84, 76, 69, REUICTJa, 80, 73, 67, 84, 85, 82, 69 

1090 DflTfl I ISGNYF, 83, 73, 71 , 78, 73, 70, 89, ORDfll , 82, 65, 68, 73, 79 

1100 DflTfl ZEERPflT, 84, 82, 65, 80, 69, 90, 69, 

3000 WAIT 653, 1 

3010 WAIT 653, 1, 1 

3020 RETURN 

Ti-99/4A 

1 REM *** I'JORD SCRAMBLE TI 99/4A *** 

to CAU... CLEAR 

20 PRINT "WORD SCRAMBLE" 

30 F'RINT 

40 F-'RINT "UNSCRAMBLE WORDS BY" 

50 PRINT "TYPING YOUR fSUESSES, " 

60 PRINT "THE COMPUTER SHOWS" 

70 PRINT "YOU WHICH LETTERS ARE" 

SO PRINT "CORRECT. FOR EXAMPLES " 

90 PRINT ' . 

1.00 PRINT "THE COMPUTER PRINTS," 

110 PRINT "'SEURS'. THE ACTUAL" 

120 PRINT "WORD IS 'GUESS'." 

130 PRINT "IF YOU TYPE 'GEUSS'," 

140 PRINT "THE COMPUTER WILL RESPOND" 

150 PRINT "WITH '10011', MEANING" 

160 PRINT "THE FIRST, FOURTH, ?<" 

170 PRINT "FIFTH LETTERS ARE IN" 

180 PRINT "TfiE CORRECT LOCATIONS," 

190 PRINT "PRESS (ENTER) TO PLAY" 

200 INPUT R$ 

210 READ W* 

220 IF W*=--"0" THEN 230 ELSE 250 

230 RESTORE 

240 GOTO 210 

249 REM *K* READ SCRAMBLED WORD *** 

'•'InO ! !:lt'~ " " 

260 FOR X = l TO LEN<Wf-) 

270 READ CH ( X ) 

280 U:1--U*S<CHR* ( CH ( X ) ) 

290 NEXT X 

300 N--1 

310 CALL CLEAR 
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320 PRINT "PRESS N THEN < ENTER) " 






330 PRINT "FOR A NEW WORD." 






340 PRINT 






349 REM *«# GUESS LOOP *** 






350 PRINT "THE SCRAMBLED WORD IS:" 






360 PRINT 






370 PRINT " ";W$ 






380 PRINT 






390 R=0 






400 PRINT "TYPE IN YOUR BUESS," 






410 PRINT "THEN PRESS (ENTER)" 






420 PRINT 






430 INPUT e$ 






440 IP et="N" THEN 210 






450 IF LEN(G*) >LEN(W*)THEN 460 ELSE 480 






460 PRINT "GUESS TOO LONG!" 






470 GOTO 350 






480 IF LEN(G*)<LEN(W$)THEN 490 ELSE 510 






490 PRINT "GUESS TOO SHORT!" 






500 GOTO 320 






510 PRINT " "5 






520 FOR X=l TO LEN(W*) 






530 I F SEG* ( 6* , X , 1 ) =SEGt- ( U* , X , 1 ) THEN 540 ELSE 550 






540 GOSUB 620 






550 IF SEG$(e*,X,l)<>SEG*(U5p,X,l)THEN 560 ELSE 570 






560 GOSUB 650 






570 NEXT X 






580 PRINT 






590 IF R=LEN(W*)THEN 670 






600 N==N-i-l 






610 GOTO 340 






619 REM *** CORRECT LETTER **» 






620 PRINT "1":, 






630 R=R-H 






640 RETURN 






649 RfEM •»** INCORRECT LETTER *** 






650 PRINT "0"; 






660 RETURN 






670 CALL CLEAR 






680 PR I NT "GOT IT I N " ; N ? " TURN ( S ) " 






690 PRINT 






700 PR.INT "PRESS (ENTER) TO PLAY" 






710 INPUT R* 






720 GOTO 210 • • 






730 DATA LETC I CER , 69, 76 j 69 , 67 , 84 , 82 ., 73 , 67 , SGEAROOUUT , 79 , 85 , 


84 


,82,65,71, 


69 , 79 , 85 5 83 






740 DATA ACTANPEuOL , 67 , 65 , 78 .. 04 ^ 65 , 76 , 79 , 85 , 80 , 69 






750 DATA LABTEKSABL , 66 , 65 , 83 , 75 , 69 ., 84 , 66 , 65 , 76 , 76 






760 DATA TAN I RUC , 67 , 85 . 82 , 84 , 65 , 7:5 , 78 , T AMELP AC , 80 ,76,65,67, 


69 


: 77 , 65 , 84 


770 DATA ONUSHC 1 , 67 , 85 , S3 , 72 „ 73 , 79 , 78 , WOLCRADY , 67 , 79 , 87 , 65 , 


82 


J 68 , 76 , 89 


780 DATA DEL I S , 83 , 76 , 73 , 68 , 69 , TAR I UG , 7 1 , 85 . 73 , 84 , 65 , 82 „ OWEL 


T , i 


D4 , 79 , 87 , 


69 , 76 






790 DATA MUTESOC , 67 , 79 , S3 , 84 , 85 , 77 , 69 , YOGO I LB , 66 , 73 , 79 , 76 , 7 


'9,: 


-'1 ,09 


800 DATA ACRTEP ,67,65, 32 , 80 , 69 , 84 , ARERES , 69 , 82 , 65 , 83 , 69 , 82 






8 1 DATA ELTKET , 75 , 69 , 34 , 84 , 76 , 69 , REU I CTP , 80 , 73 , 67 , 84 ,, 85 . 82 


,6< 


J 


820 DATA 1 1 SGNYF , 83 , 73 , 7 1 , 70 , 73 , 70 „ 89 , ORDA I , 82 , 65 , 68 , 73 „ 79 






830 DATA ZEERP AT, 84, 82, 65 ,,80,69, 90, 69,0 
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10AWI 


ESOME PROGRAMS FROM K-POWER 


1RS-80 Color Computer 




1 REM *** WORD SCRAMBLE TRS-80 COLOR ♦** 




10 CLS 




£0 PRIlvlT "WORD SCRAMBLE" 




30 PRINT 




40 PRINT "Unscramble words by typing" 




50 PRli^T "YOUR GUESSES. THE COMPUTER" 




60 print "SHOWS YOU WHICH LETTERS ARE" 




70 print "CORRECT. FOR EXAMPLE:" 




80 PRINT 




90 PRINT "THE COMPUTER PRINTS, ' SEUGS' " 




100 PRINT "THE ACTUAL WORD IS 'GUESS'." 




110 PRINT "IF YOU TYPE ' 6EUSS' , THE" 




120 PRINT "COMPUTER WILL RESPOND WITH" 




130 PRINT "'10011', MEANING THE FIRST, " 




140 PRINT "FOURTH, & FIFTH LETTERS ARE IN" 




150 PRINT "CORRECT LOCATIONS. PRESS ANY" 




160 PRINT "KEY TO BEGIN. " 




170 A*=INKEY* 




180 IF A«=""THEN 178 




190 U*="" 




199 REM ♦** READ SCRAMBLED WORD ♦♦♦ 




200 READ W$ 




210 IF W*="0" THEN RUN 




220 FOR X=l TO LEN(W*) 




£30 READ CH(X) 




£40 U$=U$+CHR$(CH(X)) 




£50 NEXT X 




260 G=l 




£70 CLS 




280 PRINT "PRESS ' N' + (ENTER)" 




290 PRINT "FOR A NEW WORD. " 




£99 REM «♦* GUESS LOOP **♦ 




300 PRINT 




310 PRINT "THE SCRAMBLED WORD IS:" 




320 PRINT 




330 PRINT " "W* 




340 PRINT 




350 R=0 




360 PRINT "TYPE YOUR GUESS, " 




370 PRINT "THEN PRESS (ENTER) " 




380 PRINT 




390 INPUT G* 




400 IF G*="N" THEN 190 




410 IF LEN(G*)>LEN(W*) THEN PRINT "GUESS TOO LONG!' 


:GOTO 310 


420 IF LEN(G*) (LEN(W*) THEN PRINT "tSUESS TOO SHORT! 


":GOTO 310 


430 PRINT " "; 




440 FOR X=l TO LEN(W$) 




450 IF MID*(6*, X, 1)=MID*(U*, X, 1) THEN GOSUB 520 




460 IF MID*(G*, X, 1) (>MID*(U*, X, 1) THEN GOSUB 550 




470 NEXT X 




480 PRINT 




490 IF R=LEN(6*) THEN 570 




500 6=G+i 




513 GOTO 300 




519 REM ♦*♦ CORRECT LETTER ♦♦♦ 




520 PRINT "1"; 
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530 R=R+i 




540 RETURN 




549 REM *** INCORRECT LETTER ♦♦« 




550 PRINT "0"; 




560 RETURN 




570 CLS 




580 PRINT "GOT IT IN "G" TURN(S)" 




590 PRINT 




600 PRINT "PRESS fiNY KEY TO RUN flGfilN" 




610 fi*=INKEY* 




520 IF fl*="" THEN GOTO 610 




630 GOTO 190 




1000 DflTfl LETCICER,6g,76,69,67,84,8£,73,67 




1010 DflTfl SGEflR00UUT,7g,85,84,8£,65,71,69,79,85, 83 




1020 DflTfl flCTflNPEUOL, 67, 65, 78, 84, 65, 76, 79, 85, 80, 69 




1030 DflTfl flLBTEKSflBL, 66, 65, 83, 75, 69, 84, 66, 65, 76, 76 




1040 DflTfl TflNIRUC,67, 85,8£,84,65,73,78,TflMELPflC,80, 


76, 65, 67, 69, 77, 65, 84 


1050 DflTfl ONUSHCI , 67, 85, 83, 72, 73, 79, 78, WOLCRflDY, 67, 


79, 87, 65, 82, 68, 76, 89 


1060 DflTfl DELIS, 83, 76, 73, 68, 69, TflRIUG, 71, 85, 73, 84, 65, 82, DWELT, 84, 79, 87, | 


69,76 




1070 DflTfl MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71, 89 


1080 DflTfl flCRTEP, 67, 65, 82, 80, 69, 84, flRERES, 69, 82, 65, 


83,69,82 


1090 DflTfl ELTKET, 75,69,84,84,76,69, REUICTP, 80, 73,67 


', 84, 85, 82, 69 


1100 DflTfl IISGNYF,83,73,71,78, 73,70,89,ORDflI,8£,65, 


68, 73, 79 


1110 DflTfl ZEERPflT, 84, 82, 65, 80, 69, 90, 69, 




TRS-80 Model III and Model 4 




1 REM *** WORD SCRAMBLE TRS-80 MODELS 3 AND 4 *** 




10 CLS 




20 PRINT "WORD SCRAMBLE" 




30 PRINT 




40 PRINT "UNSCRAMBLE WORDS BY TYPING" 




50 PRINT "YOUR GUESSES. THE COMPUTER" 




60 PRINT "SHOWS YOU WHICH LETTERS ARE" 




70 PRINT "CORRECT. FOR EXAMPLE:" 




SO PRINT 




90 PRINT "THE COMPUTER PRINTS, 'SEUGS'" 




100 PRINT "THE ACTUAL WORD IS 'GUESS'." 




110 PRINT "IF YOU TYPE 'GEUSS' THE " 




120 PRINT "COMPUTER WILL RESPOND WITH" 




130 PRINT "'10011', MEANING THE FIRST," 




140 PRINT "FOURTH, 8< FIFTH LETTERS ARE IN" 




150 PRINT "CORRECT LOCATIONS. PRESS ANY" 




160 PRINT "KEY TO BEGIN." 




170 A*=INKEY* 




180 IF A*="" THEN 170 




190 U*="" 




199 REM *** READ SCRAMBLED WORD *** 




200 READ W* 




210 IF •W*="0" THEN RUN 




220 FOR X=l TO LEN(W*) 




230 READ CH(X) 




240 U*=U*+CHR*(CH(X) ) 




250 NEXT X 




260 G=l 




270 CLS 




280 PRINT "PRESS 'N' + (ENTER) 




290 PRINT "FOR A NEW WORD." 




299 REM *♦* GUESS LOOP *** 
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300 PRINT 

310 PRINT "THE SCRAMBLED WORD IS:" 
520 PRINT 
330 PRINT " "W« 
340 PRINT 
350 R=0 

360 PRINT "TYPE YOUR GUESS, " 
370 PRINT "THEN PRESS (ENTER)" 
380 PRINT 
390 INPUT G* 
400 IF G*«"N" THEN 190 

410 IF LEN<G*) >LEN<W«) THEN PRINT "GUESS TOO LONG !": GOTO 310 
420 IF LEN(G*)<LEN(W*) THEN PRINT "GUESS TOO SHORT !": GOTO 310 
430 PRINT " "; 
440 FOR X=l TO LEN(W*) 

450 IF MID*<G*,X,1)=MID«(U*,X,1) THEN GOSUB 520 
460 IF MID*(G*,X,1)<>MID*(U*,X,1) THEN GOSUB 550 
470 NEXT X 
480 PRINT 

490 IF R=LEN(G*) THEN 570 
500 G=G+1 
510 GOTO 300 

519 REM *♦♦ CORRECT LETTER *«* 

520 PRINT "1"; 
530 R=R+1 

540 RETURN 

549 REM ♦** INCORRECT LETTER ♦** 

550 PRINT "O"; 
560 RETURN 
570 CLS 

580 PRINT "GOT IT IN "G" TURN(S)" 

590 PRINT 

600 PRINT "PRESS ANY KEY TO RUN AGAIN" 

610 A*=INKEY* 

620 IF A*="" THEN GOTO 610 

630 GOTO 190 

640 DATA LETCICER,69,76,69,67,84,a2,73,67 

650 DATA SGEAR00UUT,79,85,84,82,65,71,69,79,85,83 

660 DATA ACTANPEU0L,67,65,78,84,65,76,79,85,80,69 

670 DATA ALBTEKSABL , 66 , 65 , 83 , 75 , 69 , 84 , 66 , 65 , 76 , 76 

680 DATA TANIRUC, 67, 85, 82, 84, 65, 73, 78, TAMELPAC, 80, 76, 65, 67, 69, 77, 65, 84 

690 DATA ONUSHC 1 , 67 , 85 , 83 , 72 , 73 , 79 , 78 , WOLCR ADY , 67 , 79 , 87 , 65 , 82 !. 68 , 76 , 89 

700 DATA DELIS, 83, 76, 73, 68, 69, TARIUG, 71 , 85, 73, 84, 65, 82, DWELT, 84, 79, 87, 

69,76 

710 DATA MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71 , 89 

720 DATA ACRTEP,67,65,82,80,69,84,ARERES,69,S2,65,83,69,82 

730 DATA ELTKET, 75, 69, 84, 84, 76, 69, REUICTP, 80, 73, 67, 84, 85, 82, 69 

740 DATA IISGNYF,83,73,71,7a,73,70,89,0RDAI,a2,65,6a,73,79 

750 DATA ZEERPAT,84,82,65,80,69,90,69,0 

VlC-20 

1 REM #** WORD SCRfiMBLE VIC-20 *** 

10 PRINT CHR*(147) 

Ser PRINT "WORD SCRAMBLE" 

30 PRINT 

40 PRINT "UNSCRAMBLE WORDS BY" 

50 PRINT "TYPING YOUR GUESSES." 

60 PRINT "THE COMPUTER SHOWS" 

70 PRINT "YOU WHICH LETTERS ORE" 
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80 
90 

100 
110 

120 
130 
140 
150 

1&0 

170 
180 
190 

£00 

ai0 
219 
£20 
230 
£39 
240 
250 
260 
270 
280 
290 

300 

310 
319 
320 
330 
340 
350 
360 
370 
380 
390 

400 

410 
420 
430 
440 
450 
460 
470 
480 
490 

500 

510 
520 
529 
530 
540 
550 
559 
560 
570 
580 
590 

600 

610 



"CORRECT. FOR EXAMPLE:" 

"THE COMPUTER PRINTS, " 
"»SEUGS». THE OCTUfiL" 
"WORD IS »SUESS». IF" 
"YOU TYPE »GEUSS», THE" 
"COMPUTER WILL RESPOND" 
"WITH »10011», MEANING" 
"THE FIRST, FOURTH, &" 
"FIFTH LETTERS ARE IN" 
"THE CORRECT LOCATIONS. 
"PRESS (SHIFT) TO PLAY" 

3000 



PRINT 
PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GOSUB 

U*="" 

REM ♦** READ SCRAMBLED WORD **♦ 

READ W$ 

IF W*="0" THEN RUN 

REM *** READ ACTUAL WORD *»# 

FOR X=l TO LEN(W*) 

READ CH(X) 

U*=U*+CHR*(CH<X)) 

NEXT X 

6=1 

PRINT CHR*(147) 

PRINT "PRESS »N' + (RETURN)" 

PRINT "FOR A NEW WORD. " 

REM **♦ GUESS LOOP *♦* 

PRINT 

PRINT "THE SCRAMBLED WORD IS:" 

PRINT 

PRINT 

PRINT 

R=0 

PRINT 

PRINT 

INPUT 



"W* 



"TYPE YOUR GUESS, THEN PRESS (RETURN) " 



THEN 
THEN 



PRINT 
PRINT 



"GUESS 
"GUESS 



roo 
roo 



G$ 
IF G*="N" THEN 210 
IF LEN(G*)>LEN(W*) 
IF LEN(G*) <LEN(W*) 
PRINT " ■'• 
FOR X=l TO LEN(W*) 

IF MID*(6*, X, 1)=MID*(U*, X, 1) THEN GOSUB S30 
IF MID*(G*, X, 1) (>MID*(U*, X, 1) THEN GOSUB 560 
NEXT X 
PRINT 

IF R=LEN(G*) THEN 580 
6=G+1 
GOTO 320 

REM ♦** CORRECT LETTER ROUTINE *** 
PRINT "1"; 
R=R+i 
RETURN 

REM **» INCORRECT LETTER ROUTINE *** 
PRINT "0"s 
RETURN 

PRINT CHR*(147) 
PRINT "GOT IT IN"G"TURN(S)" 
PRINT 
PRINT "PRESS (SHIFT) TO PLAY" 



LONG i " : GOTO 330 
SHORT! "sGOTO 330 



54 



10 AWESOME PROGRAMS FROM K-POWER 



620 60SUB 3000 

630 GOTO £10 

1000 DflTfi LETCICER, 69, 76, 69, 67, 84, 82, 73, 67, SGEfiROOUUT, 79, 85, 84, 82, 65, 71 , 

69,79 

1010 DfiTfl 85,83,flCTANPEUOL,67,65,78,84,65,76,79,85,a0,69 

1020 DATA LflBTEKSflBL, 66, 65, 83, 75, 69, 84, 66, 65, 76, 76 

1030 DATA TANI RUC, 67, 85, 82, 84, 65, 73, 78, TAMELPAC, 80, 76, 65, 67, 69, 77, 65, 84 

1040 DATA ONUSHCI , 67, 85, 83, 72, 73, 79, 78, WOLCRADY, 67, 79, 87, 65, 82, 68, 76, 89 

1050 DATA DELIS, 83, 76, 73, 68, 69, TARIUG, 71, 85, 73, 84, 65, 82, DWELT, 84, 79, 87, 

69,76 

1060 DATA MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71, 89 

1070 DATA ACRTEP, 67, 65, 82, 80, 69, 84, ARERES, 69, 82, 65, 83, 69, 82 

1080 DATA ELTKET, 75, 69, 84, 84, 76, 69, REUICTP, 80, 73, 67, 84, 85, 82, 69 

1090 DATA IIS6NYF,83,73,7l,78,73,70,a9,ORDAI,82,65,68,73,79 

1100 DATA ZEERPAT, 84, 82, 65, 80, 69, 90, 69, 

3000 WAIT 653, 1 

3010 WAIT 653, 1, 1 

3020 RETURN 
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BONUS PROGRAM #4 

SECRET CODES 

Now. SECRET CODES can be sent between you and a pal . And 
no one will know what you're saying. .. without the SECRET 
CODE encoder/decoder program. To use it convert a message 
into code by selecting ENCODE from the menu. Then type 
your message in normal English. Next, write the encoded 
message down as it appears on the computer screen. Return 
it the main menu and select DECODE. Then type the encoded 
message you wrote, and watch the computer decode the 
message. This program will decode all letters and 
numbers, question marks, periods, and spaces. Commas 
aren't allowed and may cause errors on some corrsputer-s. 



ADAM 



1 

9 

10 

20 

29 

30 

40 

50 

60 

69 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

199 

200 

210 

220 

225 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 



*** 



"Type the number of your choice" 
"then press (RETURN)." 

"l)Encode a message" 
"2) Decode a message" 



REM *** SECRET CODE ADAM *** 

REM *** dimension code arrays *** 

DIM a$(39) 

DIM c$(39) 

REM *** initialize code arrays 

FOR X = 1 TO 39 

READ a$(x) 

READ c$(x) 

NEXT X 

jyg]y[ *** main menu *** 

HOME 

PRINT "SECRET CODE PROGRAM" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IP ch 

ON ch 

REM 

HOME 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IP m$ 

PRINT 

PRINT 

PRINT 

PRINT 



one: 



"Which 
< 1 OR ch 
GOTO 200, 
encode 



*** 



> 2 'then 160 
500 
routine *-^"^ 



" Type 
"max . 
"only 
" Type 
"to go 

"What 
m$ 
= "0" 



your message, two lines" 
at one time please! Use" 
CAPITALS and no commas!" 
'0' and press (RETURN)" 
to the main menu." 



is your message' 



THEN 70 



"Now encoding. . ." 
"Here's the code:" 
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330 PRINT 

340 FOR X = 1 TO LEN(m$) 

350 FOR m = 1 TO 39 

360 IP MID$(m$, x, 1 ) = a$(m) THEN PRINT g$(iii); 

370 NEXT m 

380 NEXT X ° 

390 PRINT 
400 PRINT 
■ 410 PRINT "Press any key to continue." 
420 GET n$ 
430 GOTO 70 

499 REM *** decode routine *** 

500 HOME 

510 PRINT "Type your coded message, two lines" 

520 PRINT "max. at one time please!" 

525 PRINT "Use only CAPITALS." 

530 PRINT "Type '0' and press (RETURN)" 

540 PRINT "to return to the main menu." 

550 PRINT 

560 PRINT "What is the coded message" 

570 INPUT c$ 

580 IP c$ = "0" THEN 70 

590 PRINT 

600 PRINT "Now decoding..." 

610 PRINT 

620 PRINT "Here's the message:" 

630 PRINT 

640 POR X = 1 TO LEN(c$) 

650 POR m = 1 TO 39 

660 IP MIi)$(c$, X, 1) = c$(m) THEN PRINT a$(m); 

670 NEXT m 

680 NEXT X 

690 PRINT 

700 PiRINT 

710 PRINT "Press any key to continue." 

720 GET n$ 

730 GOTO 70 
1000 DATA A,P," "," ",B,H,C,U,I),Y,E,Z,P,0,G,J,H,I 
1010 DATA I,Q,J,S,K,¥,L,A,M,C,N,M,0,T,P,V,Q,P 
1020 DATA R,K,S,D,T,G,U,B,V,E,W,I,X,N,Y,X,Z,R 
1030 DATA .,.,0,9,1,7,2,3,3,0,4,2,5,1 
1040 DATA 6,4,7,5,8,6,9,8,?,? 

Apple 11 and Apple He 



1 


RErM *** SECRET CODE APPLE **•» 


9 


REM *** DIMENSION CODE ARRAYS *#* 


10 


DIM A$(39) 


20 


DIM C:i-<39) 


29 


REM *** INITIALIZE CODE ARRAYS *•«•* 


30 


FOR X := 1 TO 39 


40' 


READ A*(X) 


50 


READ C:i-<X) 


60 


NEXT X 


69 


REM *** MAIN MENU **>!• 


.70 


HOME 


80 


PRINT "SECRET CODE PR0G3RAM" 


90 


PRINT 


100 


PRINT "TYPE THE NUMBER OF YOUR CHOICE 
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110 

120 

130 

140 

150 

160 

170 

180 

199 

200 

210 

220 

225 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

3S0 

390 

400 

410 

420 

430 

499 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 



PRINT "THEN PRESS (RETURN) , " 

PRINT 

PRINT "DENCODE A MESSAGE" 

PRINT "2) DECODE A MESSAGE" 

PRINT . 

INPUT "WHICH ONES " 5 CM 

IF CH < 1 OR CH > 2 THEN 160 

ON CH GOTO 200,500 

REM *** ENCODE ROUTINE *** 

HOME 

PRINT "TYPE YOUR MESSAGE, TWO LINES" 

PRINT "MAX. AT ONE TIME PLEASE!" 

PRINT "NO COMMAS ALLOWED!" 

PRINT "TYPE '0' AND PRESS (RETURN)" 

PRINT "TO GO TO THE MAIN MENU." 

PRINT 

PRINT "WHAT IS YOUR MESSAGE" 

INPUT M* 

IF M* - "0" THEN 70 

PRINT 

PRINT "NOW ENCODING, . , " 

PRINT 

PRINT "HERE'S THE CODEs " 

PRINT 

FOR X = 1 TO LEN (M$) 

FOR M = 1 TO 39 

IF MID$ (M:*:,X5l) = A*(M) THEN PRINT CtCM); 

NEXT M 

NEXT X 

PRINT 

PRINT 

PRINT "PRESS ANY KEY TO CONTINUE." 

GET N* 

GOTO 70 

REM *** DECODE ROUTINE «•«•* 

HOME 

PRINT "TYPE YOUR CODED MESSAGE, TWO LINES" 

PRINT "MAX. AT ONE TIME PLEASE!" 

PRINT "TYPE '0' AND PRESS (RETURN)" 

PRINT "TO RETURN TO THEN MAIN MENU." 

PRINT 

PRINT "WHAT IS THE CODED MESSAGE" 

INPUT C* 

IF C* 

PRINT 

PRINT 

PRINT 

PRINT "HERE'S THE MESSAGE? 

PRINT 

FDR X 

FOR M 



■■^= "0" THEN 70 
"NOW DECODING. 



1 TO LEN (C*) 

1 TO 39 
IF MID* (C$,X,1) = C$<M) 
NEXT M 
NEXT X 
PRINT 
PRINT 

PRINT "PRESS ANY KEY TO CONTINUE,, " 
GET N* 
GOTO 70 



THEN PRINT A:1-(M) ; 
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1000 DATA A,F," "," " ,B, H,C,U, D, Y,E, Z ,F,0,G, J ,H,L 


1010 DATA I,Q,J,S,K,W,L,A,M,C,N,M,0,T,P,V,Q,P 




1020 DATA R,K,S,D,T,B,U,B,V,E,W,I,X,N,Y,X,Z,R ' 




1030 DATA .,,,0,9,1,7,2,3,3,0,4,2,5,1 




1040 DATA 6,4,7,5,8,6,9,8,?,? 




Atari 




1 REM *** SECRET CODE ATARI •»** 




9 REM *** DIMENSION CODE ARRAYS *** 




10 DIM Mf- ( 1 200 ) , m- (. 1 200 ) 




20 DIM C*(39) ,A*(39) 




30 DIM R*(l) ,Alf(l) ,Ci*<l) 


• 


39 REM *** INITIALIZE CODE ARRAYS *** 




40 FOR X=i TO 39 




50 READ Ai* 




60 A$<X)=Ai$ 




70 READ Cl* 




80 C*(X)=C1$ 




90 NEXT X 




99 REM *** MAIN MENU **■«• 




100 PRINT CHR*(125) 


' 


110 PRINT "SECRET CODE PROGRAM" 




120 PRINT 




130 PRINT "TYPE THE NUMBER OF YOUR CHOICE" 




140 PRINT "THEN PRESS THE (RETURN) KEY." 




150 PRINT 




160 PRINT "DENCODE A MESSAGE" 




170 PRINT "2) DECODE A MESSAGE" 




ISO PRINT . 




190 PRINT "WHICH ONE"? 




200 INPUT CH 




210 IF CH<1 OR CH>2 THEN 190 




220 ON CH GOTO 230,500 




229 REM *** ENCODE ROUTINE **■* 




230. PRINT CHR*(125> 




240 PRINT "TYPE YOUR MESSAGE, TWO LINES," 




250 PRINT "MAXIMUM AND NO COMMAS PLEASE!" 




260 PRINT "TYPE '0' AND PRESS (RETURN)" 


' 


270 PRINT "TO THE MAIN MENU« " 




280 PRINT 




290 PRINT "WHAT IS YOUR MESSAGE" 




300 INPUT M$ 




310 IF M*="0" THEN 100 




320 PRINT . 




330 PRINT "NOW ENCODING,. „„,. " 




340 PRINT 




350 PRINT "HERE'S THE CODE:" 




360 PRINT 




370 FOR S=-^i TO LEN(M$) 




380 FOR M==l TO 39 




390 I F m- ( S , S ) = A$ ( M , M ) THEN PR I NT C$ ( M , M ) ;; 




400 NEXT M 




410 NEXT S 




420 PRINT 




430 PRINT 




440 PRINT "PRESS (RETURN) TO CONTINUE."; 




450 GQSUB 2000 




460 GOTO 100 




499 REM *** DECODE ROUTINE *** 
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500 PRINT CHR*(125) 

510 PRINT "TYPE YOUR CODED MESS ABE, TWO LINES' 

520 PRINT "MAXIMUM - NO COMMAS PLEASE!" 

530 PRINT "TYPE 'O' AND PRESS (RETURN)" 

540 PRINT "TO RETURN TO THE MAIN MENU." 

550 PRINT 

560 PRINT "WHAT IS THE CODETD MESSAGE" 

570 INPUT N* 

580 IF N*="0" THEN 100 

590 PRINT 

600 PRINT "NOW DECODING. » . . " 

610 PRINT 

620 PRINT "HERE'S THE MESSAGES" 

630 PRINT 

640 FOR X=l TO LEN(N*) ' 

650 FOR M=l TO 39 

660 IF N-f- ( X , X ) =Ct- ( M , M ) THEN PR I NT At ( M , M > 3 

670 NEXT M 

680' NEXT X 

690 PRINT 

700 PRINT 

710 PRINT "PRESS (RETURN) TO CONTINUE."? 

720 GOSUB 2000 

730 GOTO 100 

1000 DATA A,F, , , B, H,C, U, D, Y ,E , Z ,F ,0 ,G, J , H, L 

1010 DATA I,Q,J,S,K,W,L,A,M,CsN5M,0,T,P,V,Q,P 

1 020 DATA R , K , S , D , T , G , U , B , V , E , W , I , X , N ,, Y , X , Z , R 

1030 DATA .,.,0,9,1,7,2,3,3,0,4,2,5,1 

1040 DATA 6,4,7,5,0,6,9,8,?,? 

1999 REM *** INPUT ROUTINE *** 

2000 INPUT R* 
2010 RETURN 

Commodore 64 

1 REM **« SECRET CODE 64 *** 

9 REM **♦ DIMENSION CODE ARRflYS *** 

10 DIM A«<39) 
20 DIM C*(39) 

29 REM *** INITIALIZE CODE ARRAYS **♦ 

30 FOR X=l TO 39 
40 READ A«(X) 

50 READ C*(X> 
60 NEXT X ' 

69 REM *** LE MAIN MENU *** 

70 PRINT CHR*<147) 

80 PRINT "SECRET CODE PROGRAM" 

90 PRINT 

100 PRINT "TYPE THE NUMBER OF YOUR CHOICE" 

110 PRINT "THEN PRESS THE (RETURN) KEY." - 

120 PRINT 

130 PRINT "D ENCODE A MESSAGE" 

140 PRINT "£) DECODE A MESSAGE" 

150 PRINT 

160 INPUT "WHICH ONE"?CH 

170 IF CH<1 OR CH>£ THEN 160 

180 ON CH GOTO 200,500 

199 REM ♦*♦ ENCODE ROUTINE *♦* 

200 PRINT CHR*<147) 
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£10 PRINT "TYPE YOUR MESSfiGE, TWO LINES" 

220 PRINT "MAXIMUM. NO COMMAS ALLOWED!" 

£30 PRINT "TYPE » 0» AND PRESS (RETURN)" 

£40 PRINT "TO GO TO THE MAIN MENU." 

250 PRINT 

260 PRINT "WHAT IS YOUR MESSAGE" 

270 INPUT M* 

£80 IF M*="0" THEN 70 

£90 PRINT 

300 PRINT "NOW ENCODING " 

310 PRINT 

320 PRINT "HERE'S THE CODE:" 

3313 PRINT 

340 FOR X=l TO LEN(M*) 

3513 FOR M=l TO 39 

360 IF MID*<M*, X, i)=A*(M) THEN PRINT C*<M)-, 

370 NEXTM 

380 NEXT X 

390 PRINT 

400 PRINT 

410 PRINT "PRESS (SHIFT) TO CONTINUE." 

420 GOSUB 3000 

430 GOTO 70 

499 REM **♦ DECODE ROUTINE *** 

500 PRINT CHR*(147) 

510 PRINT "TYPE YOUR CODED MESSAGE, TWO LINES" 

520 PRINT "MAX. AT ONE TIME, PLEASE!" 

530 PRINT "TYPE '0' AND PRESS (RETURN)" 

540 PRINT "TO RETURN TO THE MAIN MENU. " 

550 PRINT 

560 PRINT "WHAT IS THE CODED MESSAGE" 

570 INPUT C« 

580 IF C*="0" THEN 70 

590 PRINT 

600 PRINT "NOW DECODING " 

610 PRINT 

620 PRINT "HERE'S THE MESSAGES" 

630 PRINT 

640 FOR X=l TO LEN(C*) 

650 FOR M=l TO 39 

.660 IF MID*(C*, X, 1)=C*(M) THEN PRINT A*(M); 

670 NEXT M 

680 NEXT X 

690 PRINT 

700 PRINT 

710 PRINT "PRESS (SHIFT) TO CONTINUE." 

7£0 GOSUB 3000 

730 GOTO 70 

1000 DATA A,F, " "," ",B, H,C, U,D,Y,E, Z,F, D,G,J,H,L 

1010 DATA I, Q, J, S, K, W, L, A, M, C, N, M, 0, T, P, V, Q, P 

1020 DATA R, K, S, D, T, G, U, B, V, E, W, I, X, N, Y, X, Z, R 

1030 DATA . , . , 0, 9, 1 , 7, 2, 3, 3, 0, 4, £, 5, 1 

1040 DATA 6, 4, 7, 5, 8,6,9,8,?,? 

2999 REM ♦** WAIT ROUTINE *♦* 

3000 WAIT 653, 1 
3010 WAIT 653, 1,1 
3020 RETURN 
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IBM PC 

1 REM **« SECRET CODE IBM~PC *** 

9 REM *♦♦ DIMENSION CODE ARRAYS *** 

10 DIM A*(64) 
20 DIM C*(64) 

30 FOR X=l TO 40 
4i READ A*(X) 
50 READ C*(X) 
60 NEXT X 

69 REM **♦ MAIN MENU **♦ 

70 CLS 

80 PRINT "SECRET CODE PROGRAM" 

90 PRINT 

100 PRINT "SECRET CODE PR06RAM" 

110 PRINT "THEN PRESS (ENTER)." 

120 PRINT 

130 PRINT "DENCODE A MESSAGE" 

140 PRINT "2) DECODE A MESSAGE" 

150 PRINT 

160 INPUT "WHICH ONE";CH 

170 IF CH<i OR CH>2 THEN 160 

180 ON CH GOTO 200,500 

199 REM *** ENCODE ROUTINE *** 

200 CLS 

210 PRINT "TYPE YOUR MESSAGE" 

220 PRINT "2 LINES MAXIMUM AT A TIME" 

230 PRINT "OR TYPE '0' AND PRESS" 

240 PRINT "(ENTER) FOR MENU." 

250 PRINT 

260 PRINT "WHAT IS YOUR MESSAGE" 

270 INPUT M* 

280 IF M*="0" THEN 70 

290 PRINT 

300 PRINT "NOW ENCODING, . . " 

310 PRINT 

320 PRINT "HERE'S THE CODE:" 

330 PRINT 

340 FOR X=l TO LEN(M*) 

350 FOR M=l TO 40 

360 IF MID*(M$,X,1)=A*(M) THEN PRINT C*(M)!! 

370 NEXT M 

380 NEXT X 

390 PRINT 

400 PRINT 

410 PRINT "PRESS 

420 GOSUB 3000 

430 GOTO 70 

499 REM *** DECODE ROUTINE #** 

500 CLS 

510 PRINT "TYPE A CODED MESSAGE" 
520 PRINT "2 LINES MAXIMUM AT A TIME" 
530 PRINT "OR TYPE -0' AND PRESS" 
540 PRINT " (ENTER) FOR MENU. " 
550 PRINT 

560 PRINT "WHAT IS THE CODE" 
570 INPUT C* 
580 IF C*="0" THEN 70 



(ENTER) TO CONTINUE" 
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590 PRINT 

600 PRINT "NOW DECODING. . . " 

610 PRINT 

620 PRINT "HERE'S THE MESSAGE:" 

630 PRINT 

640 FOR X=l TO LEN(C*) 

650 FOR M=l TO 40 

660 IF MID*(C4:,X,1)=C*(M) THEN PRINT A*(M);; 

670 NEXT M 

680 NEXT X 

690 PRINT 

700 PRINT 

710 PRINT "PRESS (ENTER) TO CONTINUE." 

720 60SUB 3000 

730 GOTO 70 

1000 DATA A, F," "," ",B,H,C,U,D,Y,E,Z,F,0,G,J,H,L 

1010 DATA I,Q,J,S,K,W,L,A,M,C,N,M,0,T,P,V,Q,P 

1020 DATA R,K,S,D,T,e,U,B,V,E,W,I,X,N,Y,X,Z,R 

1030 DATA .,.,0,9,1,7,2,3,3,0,4,2,5,1 

1040 DATA 6,4,7,5,8,6,9,8,",",",",?,? 

3000 INPUT R* 

3010 RETURN 

TI-99/4A 

1 REM *** SECRET CODE TI99/4A *** 

9 REM *** DIMENSION CODE ARRAYS *** 

10 DIM A* (41) 
20 .DIM C*(4:l) 

30 FOR X==l TO 39 
40 f^EAD Af(X> 
50 READ C*(X) 
60 NEXT X 

69 REM **-» MAIN MENU *** 

70 CALL CLEAR 

80 PRINT "SECRET CODE PROSRAM" 

90 PRINT 

iOO PRINT "TYPE A NUMBER," 

110 PRINT "THEN F'RESS (ENTER)." 

120 PRINT 

130 PRINT "DENCODE A MESSA6E" 

140 PRINT "2) DECODE A MESSAGE" 

150 PRINT 

160 PRINT "WHICH ONE"; 

Cll 

1 THEN 160 
190 IF CH>2 THEN 160 
200 ON CH GOTO 210,470 

209 REM **•* ENCODE ROUTINE •»*•» 

210 CALL CLEAR 

220 PRINT "TYPE YOUR MESSAGE" 



170 INPUT 



_">'J 



O 



RINT "2 LINES MAXIMUM PLEASE." 



240 PRINT "NO COMMAS ALLOWED!" 

250 PRINT "TYPE '0' AND PRESS"' 

260 PRINT "(ENTER) FOR MENU." 

270 PRINT 

280 PRINT "WHAT IS YOUR MESSAGE" 

290 INF-'UT M;J: 

300 IF M$'^^--"0" THEN 70 

310 PRINT 
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320 


PRINT "NOW ENCODING. . . . " 


330 


PRINT 


340 


PRINT "HERE'S THE CODEs " 


350 


PRINT 


360 


FOR X=l TO LEN(M*) 


370 


FOR M=:l TO 40 


380 


IF SEG4-(M$,X,1)=A*(M)THEN 390 ELSE 400 


390 


PRINT C*(M) ; 


400 


NEXT M 


410 


NEXT X 


420 


PRINT 


430 


PRINT 


440 


PRINT "PRESS (ENTER) TO CONTINUE." 


450 


60SUB 780 



460 GOTO 70 

469 REM *** DECODE ROUTINE *** 

470 CALL CLEAR 

480 PRINT "TYPE. A CODED MESSAGE-" 
490 PRINT "2 LINES MAXIMUM PLEASE." 

500 PRINT "NO COMMAS ALLOWED!" 

510 PRINT "TYPE' '0' AND PRESS" 

520 PRINT "(ENTER) FOR MENU„ " 

530 PRINT 

540 PRINT "WHAT IS THE CODE" 

550 INPUT CO* 

560 IF C0#="0" THEN 70 

570 PRINT 

580 PRINT "NOW DECODING. . u , " 

590 PRINT 

600 PRINT "HERE'S THE MESSAGE;;" 

610 PRINT 

620 FOR X=l TO LEN(CO$) 

630 FOR M=:l TO 40 

640 IF SEG;i(CO*,X,i):=C*(M)THEN 650 ELSE 400 

650 PRINT A*(M) ; 

660, NEXT M 

670 NEXT X 

680 PRINT 

690 PRINT 

700 PRINT "PRESS (ENTER) TO CONT„ " 

710 GOSUB 7S0 

720 GOTO 70 
30 DATA AJ--," "," ",B,H,C,U,D,Y,E,Z,F,n,6,JJ-l,L 
40 DATA I , Q , J , S , K , W , L , A , M , C , N , M , G , T ., P , V , Q , F' 

750 DATA R , i< , S , D , T „ G , U ., B , V , E , (a) , l „ X , N , Y . X , Z , R 

760 DATA .,,,,0,9,1, 7 , 2,3, 3 , , 4 ,2,5,1 

770 DATA 6,4, 7 , 5 ,8,6,9,8,?, '? 

780 INPUT R* 

790 RETURN 

TRS-80 Color Computer 

1 REM *** SECRET CODE TRS~80 COLOR *** 

9 REM *** DIMENSION CODE ftRRfiYS *** 

10 DIM fl*(40) 
20 DIM C*(40) 

30 FOR X=l TO 39 
40 READ fl*(X) 
50 READ C*(X) 
60 NEXT X 



T? 
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69 REM *** MfilN MENU ♦*♦ 

70 CLS 

80 PRINT "SECRET CODE PROGRAM" 
90 PRINT 



100 


PRINT "TYPE ft NUMBER" 


110 


PRINT "THEN PRESS (ENTER)." 


ia0 


PRINT 


130 


PRINT "DENCODE ft MESSPGE" 


140 


PRINT "2) DECODE fi MESSAGE" 


150 


PRINT 


160 


INPUT "WHICH ONE";CH 


170 


IF CH<1 OR CH>2 THEN 160 


160 


ON CH GOTO £00,500 


199 


REM **♦ ENCODE ROUTINE *** 


£00 


CLS 


210 


PRINT "TYPE YOUR MESSAGE" 


SS0 


PRINT "2 LINES MAX. AT ft TIME" 


£30 


PRINT "OR TYPE '0' AND PRESS" 


240 


PRINT " (ENTER) FOR MENU. " 


£50 


PRINT 


£60 


PRINT "WHAT IS YOUR MESSAGE" 


£70 


INPUT M* 


£80 


IF M*="0" THEN 70 


£90 


PRINT 


300 


PRINT "NOW ENCODING. ..." 


310 


PRINT 


320 


PRINT "HERE'S THE CODEs" 


330 


PRINT 


340 


FOR X=l TO LEN(M*> 


350 


FOR M=l TO 39 


360 


IF MID*(M*, X, 1)=A*(M) THEN PRINT 


370 


NEXT M 


380 


NEXT X 


390 


PRINT 


400 


PRINT 


410 


PRINT "PRESS (ENTER) TO CONTINUE. 


420 


GOSUB 3000 


430 


GOTO 70 


499 


REM ♦♦♦ DECODE ROUTINE *** 


500 


CLS 


510 


PRINT "TYPE ft CODED MESSAGE" 


520 


PRINT "2 LINES MAX. AT ft TIME" 


530 


PRINT "OR TYPE '0' AND PRESS" 


540 


PRINT " (ENTER) FOR MENU. " 


550 


PRINT 


560 


PRINT "WHfiT IS THE CODE" 


570 


INPUT C* 


580 


IF C*="0" THEN 70 


590 


PRINT 


600 


PRINT "NOW DECODING " 


610 


PRINT 


6£0 


PRINT "HERE'S THE MESSAGE!!" 


630 


PRINT 


640 


FOR X=l TO LEN(C$) 


650 


FOR M=l TO 39 


660 


IF MID*(C*, X, i)=C*(M) THEN PRINT 


670 


NEXT M 


680 


NEXT X 


690 


PRINT 



C$(M) 



ft*(M) 



65 



10 AWESOME PROGRAMS FROM K-POWER 



700 PRINT 

710 PRINT" PRESS <ENTER) TO CONT. " 

720 GOSUB 3000 

730 GOTO 70 

1000 DfiTfi* ft, F, " " , " % B, H, C, U, D, Y, E, Z, F, 0, 6, J, H, L 

1010 DflTfl I,Q,J,S,K,W,L,fi,M,C,N,M,0,T, P,V,a, P 

1020 DflTft R, K, S, D, T, G, U, B, V, E, W, I, X, N, Y, X, Z, R 

1030 DflTfl .,.,0,9,1,7,2,3,3,0,4,2,5,1 

1040 DflTfl 6,4,7,5,8,6,9,8,?,? 

3000 INPUT R* 

3010 RETURN 

TRS-80 Model III and Model 4 

1 REM «*« SECRET CODE TRS-SO MODELS 3 AND 4 BASIC ♦** 

9 REM *** DIMENSION CODE ARRAYS ♦** 

10 DIM A*(39) 
20 DIM C*(39) 

30 FOR X=l TO 39 
40 READ A*(X) 
50 READ C*(X) 
60 NEXT X 

69 REM **♦ MAIN MENU *«» 

70 CLS 

SO PRINT "SECRET CODE PROGRAM" 

90 PRINT 

100 PRINT "TYPE A NUMBER" 

110 PRINT "THEN PRESS (ENTER)." 

120 PRINT 

130 PRINT "DENCODE A MESSAGE" 

140 PRINT "2) DECODE A MESSAGE" 

150 PRINT 

160 INPUT "WHICH ONE";CH 

170 IF CH<1 OR CH>2 THEN 160 

180 ON CH GOTO 200,500 

199 REM *** encode' ROUTINE *♦* 

200 CLS 

210 PRINT "TYPE YOUR MESSAGE" 

220 PRINT "2 LINES MAX. (NO COMMAS)" 

230 PRINT "OR TYPE '0' AND PRESS" 

240 PRINT " (ENTER) FOR MENU." 

250 PRINT 

260 PRINT "WHAT IS YOUR MESSAGE" 

270 INPUT M* 

280 IF M*="0" THEN 70 

290 PRINT 

300 PRINT "NOW ENCODING " 

310 PRINT 

320 PRINT "HERE'S THE CODE:" 

330 PRINT 

340 FOR X=l TO LEN(M*) 

350 FOR M=l TO 39 

360 IF MID*(M*,X, 1)=A*(M) THEN PRINT C*(M); 

370 NEXT M 

380 NEXT X 

390 PRINT 

400 PRINT 

410 PRINT "PRESS (ENTER) TO CONTINUE"; 

420 GOSUB 3000 

430 GOTO 70 
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499 REM *** DECODE ROUTINE ♦** 

500 CLS 

510 PRINT "TYPE A CODED MESSABE, " 

520 PRINT "2 LINES MAX. (NO COMMAS)" 

530 PRINT "OR TYPE '0' AND PRESS" 

540 PRINT " (ENTER) FOR MENU. " 

550 PRINT 

560 PRINT "WHAT IS THE CODE" 

570 INPUT C* 

580 IF C*="0" THEN 70 

590 PRINT 

600 PRINT "NOW DECODING " 

610 PRINT 

620 PRINT "HERE'S THE MESSAGE:" 

630 PRINT 

640 FOR X=l TO LEN(C*) 

650 FOR M==l TO 39 

660 IF MID*(C*,X,1)=C*(M) THEN PRINT A*(M); 

670 NEXT M 

6S0 NEXT X 

690 PRINT 

700 PRINT 

710 PRINT "PRESS (ENTER) TO CONTINUE"? 

720 60SUB 3000 

730 GOTO 70 

1000 DATA A, F," "," " , B, H,C, U, D, Y, E, Z, F, 0, G, J, H, L 

1010 DATA I,Q,J,S,K,W,L,A,M,C,N,M,0,T,P,V,Q,P 

1020 DATA R,K,S,D,T,G,U,B,V,E,W,I,X,N,Y,X,Z,R 

1030 DATA .,.,0,9,1,7,2,3,3,0,4,2,5,1 

1040 DATA 6,4,7,5,8,6,9,8,?,? 

3000 INPUT R* 

3020 RETURN 

VIC-20 

1 REM *♦♦ SECRET CODE VIC-20 *** 

9 REM **♦ DIMENSION CODE ARRAYS ♦«» 

10 DIM fi*(39) 
20 DIM C$(3g) 

£9 REM ♦*♦ INITIALIZE CODE ARRAYS »♦* 
30 FOR X=i TO 39 
40 READ A*(X) 

READ C*(X) 

NEXT X 

REM **♦ MAIN MENU ♦** 

PRINT CHR*(i47) 

PRINT "SECRET CODE PROGRAM" 



60 
69 
70 
80 
90 

100 
110 

i£0 
130 
140 
150 
160 
170 
180 
199 

£00 

£10 



"TYPE 
"THEN 



A NUMBER, " 
PRESS (RETURN) 



" 1 ) ENCODE 
"£) DECODE 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

INPUT "WHICH ONE";CH 
IF CH<1 OR CH>£ THEN 
ON CH GOTO £00,500 
REM *** ENCODE ROUTINE *** 
PRINT CHR*(147) 
PRINT "TYPE YOUR MESSAGE" 



MESSAGE' 
MESSAGE' 



160 
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220 PRINT "2 LINES MAX-NO COMMAS!" 

230 PRINT "TYPE »0» AND PRESS" 

240 PRINT " (RETURN) FOR MENU. " 

250 PRINT 

260 PRINT "WHAT IS YOUR MESSAGE" 

270 INPUT M* 

280 IF M«="0" THEN 70 

290 PRINT 

300 PRINT "NOW ENCODING. ..." 

310 PRINT 

320 PRINT "HERE'S THE CODE:" 

330 PRINT 

340 FOR X=l TO LEN<M») 

350 FOR M=l TO 39 

360 IF MID*(M*, X, 1)=A*(M) THEN PRINT C$(M); 

370 NEXT M 

380 NEXT X 

390 PRINT 

400 PRINT 

410 PRINT "PRESS (SHIFT) TO CONT. " 

420 GOSUB 3000 

430 GOTO 70 

499 REM *»* DECODE ROUTINE ♦«♦ 

500 PRINT CHR*(147) 

510 PRINT "TYPE A CODED MESSAGE, " 

520 PRINT "2 LINES MAX-NO COMMAS!" 

530 PRINT "TYPE ' 0» AND PRESS" 

540 PRINT "(RETURN) FOR MENU." 

550 PRINT 

560 PRINT "WHAT IS THE CODE" 

570 INPUT C* 

580 IF C*="0" THEN 70 

590 PRINT 

600 PRINT "NOW DECODING " 

610 PRINT 

620 PRINT "HERE'S THE MESSAGE:" 

630 PRINT 

640 FOR X=l TO LEN(C*) 

650 FOR M=l TO 39 

660 IF MID*(C*, X, 1)=C*(M) THEN PRINT A*(M); 

670 NEXT M 

680 NEXT X 

690 PRINT 

700 PRINT 

710 PRINT "PRESS (SHIFT) TO CONT." 

720 GOSUB 3000 

730 GOTO 70 

1000 DATA A,F, " "," ",B,H,C,U,D,Y,E, Z,'f,0,G,J,H,L 

1010 DATA I,Q, J, S, K, W,L, A, M,C,N,M,0,T, P,V,Q, P 

1020 DATA R, K,S,D,T,6,U,.B,V,E,W, I,X,N,Y, X,Z,R 

1030 DATA . , . , 0, 9, 1 , 7, £, 3, 3, 0, 4, 2, 5, 1 

1040 DATA 6,4,7,5,8,6,9,8,?,? 

2999 REM *♦* WAIT ROUTINE **» 

3000 WAIT 653, 1 
3010 WAIT 653, 1,1 
3020 RETURN 
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BONUS PROGRAM #5 

GRAPHK FANTASy 

A GRAPHIC FANTASY is something that most people just dream 
of » But computers, besides being -functional, can take you 
on wonderful graphic adventures. GRAPHIC FANTASY is a 
program that lets you enter the world of computer 
generated graphics. For many hours it generates patterned 
images (on most computers in radiant colors) and geometric 
shapes something akin to pyramids, oriental rugs, and the 
cells of plants. 



ADAM 

1 REM *** GRAPHIC FANTASY ADAM *** 

10 GR: COLOR = 1 

20 X = 1 : y = 1 : kol = 1 

30 xi = -1 : yi = 1 

40 COLOR = kol . 

50 k = INT(RND(1 )*100) 

60 IP k = 1 THEN kol = kol+1 

70 IP kol > 15 THEN kol =1 

80 X = x+xi: y = y+yi 

90 IP X < 1 THEN X = 1: xi = -xl 
100 IP X > 19 THEN X = 19: xi = -xi 
110 IP y < THEN y = : yi = -yi 
120 IP y > 19 THEN y = 19: yi = -yi 
130 PLOT X, y , 
1 40 PLOT x+1 9 , y 
150 PLOT X, y+20 
160 PLOT x+,19, y+20 
170 GOTO 40 

Apple II and Apple He 

1 REM *** GRAPHIC FANTASY APPLE *** 

2 REM **« SHAPE TABLE INDEX »** 
5 HOME : HGR2 s POKE 232,2525 POKE 233,29 
10 CB = 7676s Z = 4 
20 POKE CB,e: POKE . CB + 1,0 
30 FOR LOC = 1 TO 8 

40 POKE CB + (2 * LOC), (10 * LOC •+• 8) 

50 POKE CB + (2 * LOC + 1) ,0 

60 NEXT LOC 

69 REM **« SET COLORS *«* 

70 KA = INT ( RND (1) * 7) + 1j IF KA = 4 THEN 70 
SO KB = INT ( RND (1) * 7) ■+• Is IF KB = 4 THEN 80 
90 KC = INT ( RND (1) * 7) + Is IF KC == 4 THEN 90 
100 KD = INT ( RND (1) * 7) + Is IF KD = 4 THEN 100 
105 CB = CB + 18 

109 REM *•»•* INITIALIZE SHAPE TABLES *** 

110 Z = ABS (Z - 4) 
120 BOSUB 700 
130 S == 10; ROT= Os SCALE---- 2 

139 REM -ft-w-sREAD GRAPHIC COORDINATES AND COLORS *** 

140 READ .RO,A,B 
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150 


IF RO = - 1 THEN 370 


160 


FOR CO = A TO B STEP S 


170 


KO = KA 


180 


GOSUB 500 


190 


NEXT CO 


200 


READ CO,A,B 


210 


FOR RO = A TO B STEP S 



570 
B STEP - S 



220 KO = KB 

230 60SUB 500 

240 NEXT RO 

250 IF CO = - 1 THEN 

260 READ RO,A,B 

270 FOR CO = A TO 

230 KO = KC 

290 GOSUB 500 

300 NEXT CO 

310 READ CO,A,E 

320 FOR RO = A TO B STEP - S 

330 KO = KD 

340 GOSUB 500 

NEXT RO 

GOTO 140 

FOR T = 1 TO 1500 

NEXT T 

RESTORE 

GOTO 70 

REM *■»* ERASE OVER CHARACTER **# 
500 SH = SH + Is IF SH > 4 THEN SH = 1 
510 HCOLOR-- 

DRAW SH + ( ABS (Z - 4) ) AT CO,RO 

REM *** DRAW CHARACTERS ON SCREEN *** 

HCOLOR= KO 

DRAW SH + Z AT CO,RO 

RETURN 

REM *#* SHAPE TABLE ROUTINE #*# 

FOR ST = 1 + Z TO 4 + Z 

FOR LOC = O TO 9 

IF LOC = 9 THEN POKE CB + (ST •» 10 -i- 9),0s 
730 D = INT ( RND (1) * 256) s IF D 
740 POKE CB + ( 1 * ST + LOC ) , D 
750 NEXT LOC 
760 NEXT ST 
770 •► RETURN 
1 000 DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



350 
360 
370 
380 
390 
400 
499 



520 
529 
530 
540 
550 
699 
700 
710 
720 



/ 



1. 



GOTO 750 



THEN 730 



1010 
1 020 
1030 
1040 
1050 
1 060 
1070 
1 080 



90 , 130 , 1 40 , 1 50 , 90 , 1 00 , 1 00 , 1 40 , 1 30 , 1 20 , 1 00 ^ 90 



80 , 1 20 
70,li0 
60 , 1 00 



, 150, 160,80, 110,110, 150, 120, 110, 110,80 
1 60 , 1 70 , 70 , 1 20 , 1 20 ,160,11 , 1 00 , 1 20 , 70 
1 70 , 1 80 , 60 , 1 30 , 1 30 , 1 70 , 1 00 , 90 , 1 30 , 60 
50 ,90 , 1 80 , 1 90 , 50 , 1 40 , 1 40 , 1 80 , 90 , 80 , 1 40 , 50 
40 , 80 , 1 90 , 200 , 40 , 1 50 , 1 50 , 1 90 , 80 , 70 , 1 50 , 40 
30 , 70 , 200 H 2 1 , 30 , 1 60 , 1 60 , 200 , 70 , 60 , 1 60 , 30 
20 , 60 , 210 , 220 , 20 , 170 , 170 ,210 , 60 , 50 , 170 , 20 
"■"1 ,~"1 ,~"1 ,~~1 ^— *1 ^""1 ,■**"! ,"~1 ,~"1 ,~**1 ^"~1 ,"~1 



Atari 

1 REM «** GRAPHIC. FANTASY ATARI *•«•* 

2 REM ■»■»* GIT A CHIP REQUIRED *** 
10 GRAF'HICS 11 

19 REM *#* PICK COLORS AND RANDOM 'COORDINATES 

20 K0= I NT ( RND (1 ) * 1 5 > + 1 



•x#* 
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30 R0=INT(RND(1)*191) 
40 C0-=INT<RND(1)*79) 

49 REIi **# DRAW STARBURSTS •»*# 

50 COLOR KO 
60 PLOT 40,96 
70 DRAWTO COjRO 
80 X=X+1:Q=K0 

90 IF X=75 THEN 130 

120 GOTO 20 

129 REM *«•«• INITIALIZE FRAMING CC30RDINATES **-» 

A=0 

B=79 

C=191 

D=0 

K0-INT<RNB<1)*8) 



ISC 
190 
20( 
210 
220 
230 
240 
250 
260 
27(; 
280 
290 
300 



COLOR KO 

PLOT D,A 

DRAWTO B,,A 

DRAWTO B,C 

DRAWTO D,C 

DRAWTO D,A 

A= A-i" 1 

B==B- 1 

C=C-1 

D=D+1 

X=X!-1 

IF X>275 THEN X'-^1;G0T0 10 

IF A<0 OR A>79 THEN 130 

GOTO 170 



Commodore 64 

1 REM **♦ GRAPHIC FflNTftSY 64 ♦*♦ 

10 Z=i 

£0 S=l . 

30 PRINT CHR*(147) 

40 POKE 53280, 

50 POKE 53281,0 

60 DUM=INT(RNb(-TI)) 

69 REM *♦♦ SET COLORS *♦* 

70 Kfi=INT<RND(l)#4)+l 
80 KB=INT(RND(i)*4)+4 
90 KC=INT(RND(i)*4)+8 
100 KD=INT(RND(l)*4)-!-l£' 

109 REM «** INITIALIZE SCREEN AND CHflRfiCTER VftRIfiBLES **♦ 

110 CB=55£S6 
1£0 CH=160 
130 SB=1024 

139 REM *** REftD GRAPHIC COORDINATES AND COLORS **# 

140 READ RO, A, B 

150 IF R0=-1 THEN 370 

160 FOR CQ=A TO B STEP 3 

170 KO=KA 

180 60SUB 500 

190 NEXT CO 

200 READ Ca,A,B 

210 FDR RO=A TO B STEP S 

220 KO=KB 

230 GOSUB 500 
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240 NEXT RO 

250 IF C0=-1 THEN 370 

260 READ RO,fl, B 

270 FOR CO=fl TO B STEP -S 

280 KO=KC 

290 GOSUB 500 

300 NEXT CO 

310 READ CO,fl, B 

320 FOR RO=fl TO B STEP -S 

330 KO=KD 

340 GOSUB 500 

350 NEXT RO 

360 GOTO 140 

370 FOR T=l TO 1500 

380 NEXT T 

390 S=INT<RND(1)*5)+1 

400 RESTORE 

410 1=1+1 

420 GOTO 40 

499 REM **♦ RANDOMLY PICK CHARACTER *** 

500 IF Z/3=INT(Z/3) THEN CH=81 
510 IF Z/5=INT(Z/5) THEN CH=86 
520 IF Z/7=INT(Z/7) THEN CH=9iZi 

529 REM **♦ DRAW CHARACTERS ON SCREEN *** 

530 POKE CB+CO+40*RO, KO 
540 POKE SB+CO+40*RO, CH 
550 RETURN 

1000 DATA 12, 19, £0,20, 12, 13, 13,20, 18, 18, 13, ii 
1010 DATA 11,18,21,21,11,14,14,21.17.17.14,10 
1020 DATA 10, 17, 22, 22, 10, 15, 15, 22, 16, 16, 15, 9 
1030 DATA 9, 16, 23, £3, 9, 16, 16, £3. 15, 15, IS, B 
1040 DATA 8,15,24.24,8,17,17,24,14,14,17,7 
1050 DATA 7, 14, £5, 25, 7, 18, 18, £5, 15, 13, 18, 6 
1060 DATA 6, 13, 26, £6,6, 19, 19, 26, 12, 1£, 19, 5 
1070 DATA 5, 12, 27, 27,5, 20, £0, £7, 11, 11, £0.4 
1080 DATA 4, 11,28, £8, 4, 21, 21, £8, 10, 10, £1,3 
1090 DATA 3, 10,£9, £9, 3,££,£2, £9, 9, 9,££,£ 
1100 DATA £, 9, 30, 30,£, £3,£3, 30, 8,8, 23, 1 
1110 DATA 1,8,31,31, 1, £4, £4, 31, 7, 7, £4.0 
11£0 DATA 0,7,31,-1,-1,-1,-1,-1,-1 
1130 DATA -1,-1,-1,-1,-1,-1,-1 

IBM PC 

1.0 REM X** GRAPHIC FAl-iTASV IBi'l-PC »** 

20 KEY OFF 

30 F?EM K-Jt* INl ITALitZE VARIABLES *** 

40 SCI--:;EEiM O , O , 

50 WIOfH 80 

6(> Cl.S 

70 Z--15 8--4 

SO R0--3 

90 RANDOMIZE 564 

100 CH-219 

110 REM *«-K- Mf-ili'! LOGF"' *** 

120 READ A,.B 

130 IF B-- :i. THEN 380 

140 FOR CO=A 10 B STEP 3 
150 GOSUB 1000 
160 HEX! CO 



72 



10 AWESOME PROGRAMS FROM K-POWER 



1 70 


CO=B 




180 


READ C,D 




190 


IF D=-l THEM 380 , 




200 


FOR RO=C TO D STEP 


s 


210 


60SUB 1000 




220 


NEXT RO 




230 


R0=.0 




240 


READ E,F 




250 


IF F=:-l rHEN 380 




260 


FOR CO^^E. TO F STEP 


•-S 


270 


GUSUB 1 000 




280 


NEXT CO 




290 


CO=^F 




300 


READ B,H 




310 


IF l-l=^-l THEr-T 380 




320 


FOR RO^-G TO H STEP 


-->3 


330 


GOSUB 1 000 




340 


NEXT RO 




350 


RO^-^H 




360 


GOTO 100 




370 


REM **•«• DEL. AY -BET f. 


rrEPS 


380 


FOR T = l TO -.1500 




3'?0 


WEXr T 




40C> 


s^--=:i;mt (:rnd(1)*5) + i 




410 


RESTORE 





^^.^ 



420 Z-Z-M 

4 SO GO rO 80 

440 p;:EM m-^-^' RANDOilL.V 

1000 IF- Z/2===^^If4r *;//2) I' HEN CH=^^4 

1010 LP ZV ••i=^iNI (.7/ '5) IHIZH CH=^^2 

1 020 !i.F 1/ 4-^ 1 NT ( Z / 4 ) I HEli r;H===220 

1 030 i: ^ I / "r^:^ I NT ( Z / 5 ) n-IEI-.! Cl-l^S 

1 04':> 1 F I / 7 - I N T (.1/7) T NEIM Chh-O 

1 (.»50 1 F I / '-^^ I N 1(1/9) IFIEN CH- 239 

106^) REM -^^-j^-*^ DRAW CHARACTEiRS ■^■■^••^ 

10 70 LOCATE RO^CQ^O 

1080 PRINI CHR:$:a:.;H) ; 

1090 RETURIM 

2000 0^1 1 A 2 , 78 , 3 ., 2.:': , 78 , 3 , 23 , 4 , 3 , 77 ^ 4 ^ 

20 1 D(^ r H / 7 , 4 , 2x:: ,5,4,76.5,21,76.5, 2 1 

202*:) Dv^ lA 6 , -^0 ^ 75 . 6 ., 20 , 7 ^ 6 ^ 74 , 7 , 1 9 , 74 

20 50 DA T A / , 7 3 , 8 , J. 8 . 73 , 8 , 1 8,9, 8 ,72. '^ n 

•=:::04Ci ■ DA r V-; :l. 7 ., 1 , 9 , 7 1 , lO :, 1 /!:> ,71, 1 ,16., 1 

205<J DA T A 7 ^ 1 1 , 1 5 . 1 2 , 1 1, ^ 69 , 1 2.14,69, 

:.:::060 D(\ I f) 1 , -•• 1 

TI-99/4A 

1 RE?^i ^•)^-?:- (BRAPHIC FANTASY TI99/4H -^ 

10 CAI...L SCREEN (2) 

20 Z-*"l 

30 B^^=^2 

39 REN -^-^-^^ DEFINE LE CHARACTERS •^••>J->^ "^ 

40 ('\t- " FFp-FF^FFFFFFFFFF" F " 
50 CALL CHAR ( 128, A:i:i-) 

60 CALL. CI-IAR (136,A:1i' ; 
70 CALL CLEAR 
no Rn-.-i 2 

90 n?" ••"■•• 2P 

•} ,• •> /•••, r;« A h i T\ n ivi t / C" 



H' •¥.'•¥.- 









i 


w 


P^ 






'J 




'.» 






.f '....« 






1 


7 


„ 


7 


.<'.. 


,'•? 






:l. 


•> 


1 


C.) 


„ 


70 . 


11., 


15 


1 


•;.' 


« 


1 


4 


,1..: 


.,12 


.,6 



73 
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109 


REM *** SELECT LE COLOURS *** 


no 


CALL C0L0R<2,INT(RND*6)+3,INT<RND*6)+3> 


120 


CALL C0L0R(5,INT(RND*8)+4,INT(RND*8)+1) 


130 


CALL COLOR (6, INT (RND*4) +8 , INT (RND*15) +1 ) 


140 


CALL COLOR (S, INT (RND*4) +12, INT (RND»5) +1 ) 


150 


CALL COLOR ( 1 3 , 1 NT ( RND* 1 4 > -i-S , 1 ) 


160 


CALL COLOR (14, INT (RND* 10) +3,1) 


169 


REM *** READ GRAPHIC COORDINATES *** 


170 


READ A,B 


180 


IF A=-l THEN 460 


190 


FOR CO=A TO B STEP S 


200 


GOSUB 500 


210 


NEXT CO 


220 


C0=C0-1 


230 


READ A,B 


240 


IF A=-l THEN 460 


250 


FOR RO=A TO B STEP S 


260 


GOSUB 500 


270 


NEXT RO 


280 


RO=Ra--l 


290 


READ A,B 


300 


IF A=-l THEN 460 


310 


FOR CO=A TO B STEP -S 


320 


GOSUB 500 


330 


NEXT CO 


340 


C0=C0+1 


350 


READ A,B 


360 


IF A==-l THEN 460 


370 


FOR R0=A TO B STEP S 


380 


GOSUB 500 


390 


NEXT RO 


400 


R0^^4-^0+i 


410 


CALL HCHAR (12,15, CH ) 


420 


CALL HCHAR (11,16, CH ) 


430 


LL HCHAR (12 5 17, CH) 


440 


GOTO 110 


459 


REM *** SET DRAWING STEPS *** 


460 


S-INT(RND*5)+2 


470 


RESTORE 


480 


Z = Z + 1 


490 


GOTO SO 


499 


REM **«• CHOOSE LE CHARACTERS *** 


500 


IF Z/2==INT(Z/2)THE:N 510 ELSF 520 


510 


CH-136 


520 


IF Z/3-INT(Z/3)THEN 530 ELSE 540 


530 


C.j-i=42 


540 


IF Z/5=INT(Z/5)THEN 550 Fi SE 560 


550 


CH-64 


560 


IF Z/6=INT(Z/6)THEN 570 Fi BE ssn 


570 


CH-79 


5E30 


IF Z/7=INT(Z/7)THEN 590 ELSE 600 


590 


CH--.^^94 


600 


I F Z / S=--- 1 NT ( Z / S ) ThIEN 6 1 Fj SF" 620 


610 


CH==12S 


619 


REM *•»■* DEFINE BOUNDER I ES *** 


620 


IF R0>24 THEN 630 ELSE 640 


630 


RO-24 


640 


IF Rn<:L THEN 700 


650 


IF C0<4 THEN 660 ELSE 670 
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660 CQ=4 

670 IF C0>28 THEN 680 ELSE 690 

680 C0=28 

689 REM *** DRAW CHARACTERS ON SCREEN *■»* 

690 CALL HCHAR(RO,Ca,CH) 
700 RETURN 

710 DATA 16 , 17 , 12, 13 , 17 , 15 , 13 , 1 1 , 15 , IS , 1 1 , 14 , 18 ,• 14 , 14 , 10 

720 DATA 14 , 19 , 10 , 15 , 19 , 13 , 15 , 9 , 13 , 20 , 9 , 16 , 20 , 12 , 16 , 8 

730 DATA 12,21,8,17,21,11,17,7,11,22,7,18,22,10 

740 DATA 18,6,1 , 23 , 6 , 1 9 , 23 , 9 , 1 9 , 5 , 9 , 24 , 5 , 20 , 24 , 8 

750 DATA 20,4,8,25,4,21,25,7,21,3,7,26,3,22 

760 DATA 26 , 6 , 22 ,2,6, 27 , 2 , 23 , 27 , 5 , 23 ,1,5, 28 , 1 , 24 

770 DATA 28 , 4 , - 1 , - 1 , -■ 1 , •- 1 

Timex 1000 and 1500 



»*» 



1 


REM *** GRAPHIC FANTASY TIME 


10 


CLS 




20 


RAND 




29 


REM *** INITIALIZE 


: VARIABLES 


30 


LET S=INT (RND*5)+1 


40 


LET A=0 




50 


LET B=31 




60 


LET C=0 




70 


LET D=21 




80 


LET CH=INT (RND*9)+2 


99 


REM »** MAIN LOOP 


«*4(- 


100 


FOR X=A TO B STEP 


S 


110 


PRINT AT C,X;CHR* 


(CH) 


120 


NEXT X 




130 


FOR X=C TO D STEP 


S 


140 


PRINT AT X,B;CHR* 


(CH) 


150 


NEXT X 




160 


FOR X=B TO A STEP 


-S 


170 


PRINT AT D,X;CHR* 


(CH) 


180 


NEXT X 




190 


FOR X=D TO C STEP 


-s 


200 


PRINT AT X,A;CHR* 


(CH) 


210 


NEXT X 




219 


REM *** REDEFINE VARIABLES * 


220 


LET A=A+1 




230 


LET B=B-1 




240 


LET C=C+1 




250 


LET D=D-1 




260 


IF 021 THEN GOTO 


20 


270 


GOTO 100 





TRS-80 Color Computer 

1 REM *♦* GRAPHIC FflNTflSY TRS-80 COLOR *** 
10 S=i 
£0 Z=l 
30 CLS(0) 
40 E=£31 

49 REM *♦* RfiMDOMLY PICK COLOR *** 

50 Kfl=RND(a) 
60 KB=RND<£)+£ 
70 KC=RND(a) 
80 KD=RND(£)+6 
90 CH=i5 
99 REM *** MAIN LOOP *** 
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100 READ B 

110 IF B=:-l THEN 320 

120 FOR CO=E TO B STEP S 

130 KO=KA 

1A0 GOSUB 500 

150 NEXT CO 

160 READ C 

170 FOR CO=B TO C STEP S*32 

180 KO=KB 

190 GOSUB 500 

200 NEXT CO 

£10 READ D 

220 FOR CO=C TO D STEP-S 

230 KO=KC 

240 GOSUB 500 

250 NEXT CO 

260 READ E 

270 FOR CO=D TO E STEP-S*32 

280 KO=KD 

290 GOSUB 500 

300 NEXT CO 

310 GOTO 100 

320 FOR T=l TO 1500 

330 NEXT T 

340 S=RND(5) 

350 RESTORE 

360 Z=Z+1 

370 GOTO 40 

499 REM *** RANDOMLY PICK CHARACTER *♦* 

500 IF Z/3=INT(Z/3) THEN CH=7 
510 IF Z/2=INT(Z/2) THEN CH=10 
520 IF Z/5=INT(Z/5) THEN CH=9 
530 IF Z/7=INT(Z/7) THEN CH=4 

539 REM *** DRAW CHARACTERS *** 

540 SC=12a+16*<K0-l)+CH 
550 PRINTi?CO, CHR$<SC) ; 
560 RETURN 

1000 DATA 248, 280, 262, 198, 217, 313, 293, 165, 186 
1010 DATA 346, 324, 132, 155, 379, 355, 99, 124, 412 
1020 DATA 386,66,93,445,417,33,62,478 
1030 DATA 448,32,-1,-1,-1 

TRS-80 Model III and Model 4 

1 REM *** GRAPHIC MODELS 3 AND 4 CASS. OR MODEL 3 DISK BASIC *** 

9 REM *** INITIALIZE VARIABLES *#* 

10 S=2 

20 Z=i: PRINT CHR*(21) 
30 CLS 
40 E=0 
50 CH=158 

59 REM *** MAIN LOOP #*# 

60 READ B 

70 FOR CO=E TO B STEP S 

80 BOSUB 500 

90 NEXT CO 

100 READ C 

110 IF C=-l THEN 240 

120 FOR CO=B TO C STEP S*64 

130 GOSUB 500 
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140 NEXT CO 

150 READ D 

160 FOR CO=C TO D STEP-S 

170 GOSUB 500 

180 NEXT CO 

190 READ E 

200 FOR CO=D TO E STEP-S*64 

210 GOSUB 500 

220 NEXT CO 

230 GOTO 60 

240 FOR T=l TO 1500 

250 NEXT T 

260 S=RND(7) 

270 RESTORE 

280 Z=Z+1 

290 GOTO 40 

499 REM **» RANDOMLY CHOOSE CHARACTER *** 

500 IF Z/2=INT(Z/2> THEN CH=183 
510 IF Z/3=INT(Z/3) THEN CH=189 
520 IF Z/4=INT(Z/4) THEN CH=129 
530 IF Z/5=INT<Z/5) THEN CH»157 
540 IF Z/6=INT(Z/6) THEN CH=170 

549 REM «** DRAW *** 

550 PR I NTHCO , CHR* ( CH ) 5 
560 RETURN 

1000 DATA 63,959,896,64,126,894,833,129,189 
1010 DATA 829,770,194,252,764,707,259,315,699 
1020 DATA 644,324,378,634,581,389,441,569 
1070 DATA 518,454,504,-1,-1,-1 

VIC-20 

1 REM *♦* SRflPHIC FflNTftSY VIC-20 **♦ 

10 Z=l 

£0 S=2 

30 PRINT CHR* (147) 

40 POKE 36879,8 

60 DUM=INT<RND(-TI)) 

69 REM ♦** SET COLORS ♦** 

70 Kfi=INT(RND( !)*£)+! 
30 KB=INT(RND(1 )♦£)+£ 
90 KC=INT<RND(l)*£>+4 
100 KD=INT(RND(l)*£)+6 

109 REM *♦* INITIfiLIZE SCREEN FIND CHflRflCTER VflRIflBLES *** 

110 CB=38400 
1£0 CH=160 
130 SB=76a0 

140 REfiD RO, fi,B 

150 IF R0=-1 THEN 370 

160 FOR CO=fi TO B STEP S 

170 KO=Kfl 

180 GOSUB 500 

190 NEXT CO 

£00 REfiD CO, fl,B 

£10 FOR RO=fl TO B STEP S 

££0 KQ=KB 

£30 SDSUB 500 

£40 NEXT RQ 

£50 IF C0=-1 THEN 370 

£60 READ RO, fl. B 
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270 


FOR CO=fl 


TO 


B 


STEP 


-S 


280 


KO=KC 










290 


GOSUB 500 










300 


NEXT CO 










310 


READ CO, A 


,B 








320 


FOR RO=fl 


TO 


B 


STEP 


-S 



33Si KO=KD 

340 GOSUB 500 

350 NEXT RO 

360 GOTO 140 

370 FOR T=l TO 1500 

380 NEXT T 

390 S=INT(RND<1)*5)+1 

400 RESTORE 

410 Z=Z+1 

420 GOTO 40 

499 REM ♦** RANDOMLY PICK CHflRflCTER *♦* 

500 IF Z/3=INT(Z/3) THEN CH=81 
510 IF Z/5=INT(Z/5) THEN CH=86 
520 IF Z/7=INT(Z/7) THEN CH=90 

529 REM ♦♦* DRAW CHARACTERS *** 

530 POKE CB-t-C0+22*R0, KO 
540 POKE SB+C0+22*R0, CH 
550 RETURN 

1000 DATA 11, 11, 12, 12, 11, 12, 12, 12, 10, 10, 12, 10, 10, 10, 13 

1010 DATA 13,10,13,13,13,9,9,13,9,9,9,14,14,9,14 

1020 DATA 14,14,8,8,14,8,8,8,15,15,8,15,15,15,7 

1030 DATA 7, 15, 7, 7, 7, 16, 16, 7, 16, 16, 16, 6, 6, 16, 6 

1040 DATA 6,6,17,17,5,17,17,17,5,5,17,5,5,5,18 

1050 DATA 18,5,18,18,18,4,4,18,4,4,4,19,19,4,19 

1060 DATA 19,19,3,3,19,3,3,3,20,20,3,20,20,20,2 

1070 DATA 2,20,2,2,2,21,21,2,21,21,21,1,1,21,1 

1080 DATA 1,1,21,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

1090 DATA 3,10,29,29,3,22,22,29,9,9,22,2 

1100 DATA 2,9,30,30,2,23,23,30,8,8,23,1 

1110 DATA 1,8,31,31,1,24,24,31,7,7,24,0 

1120 DATA 0,7,31,-1,-1,-1,^1,-1,-1 

1130 DATA -1,-1,-1,-1,-1,-1,-1 

READY. 
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BONUS PROGRAM #6 

WATER BALLOONS 

In the summer B of my early youth 5 we msBd to have water 
balloon fights to keep cool « To be cool now^ I use my 
computer to play a little game called WATER BALLOONS. The 
object of WATEF^ BALLOONS is to stand on the balcony^ of a 
tall building.^ blindfolded (if that sounds a bit scary, 
read on),. and drop water balloons into a hoop on the 
ground . Your f r i Bnd , who ' s sur el y nuts , i s down bel ow ^ 
shouting directions to you- "TOO FAR NORTH!" he says, as 
you hit the policeman on the head- 

To set the:? directions a water balloon will travel, you 
select a number between one and 10 for North and South, 
and do the same for West mid Easta If you pick a 10 for 
North /South and your friend says-, "TOO FAR SOUTH!", then 
you should pick a lower number for North /South on the ne^xt 
time around u 

After selecting the number you Wc.\nt, be sure to press 
the RETURN or ENTER key, to plug the number into the 
computer. When you finally drop a balloon into the hoop, 
t h e c o m p u t e r w i 1 1 t e 1 1 y o u 1"^. o w m a n y t r i e s i t t o a k « 



ADAM 

1 REM ^^^ WATER BALLOONS^ ADAM ^^^ 
10 b = 10 

20 Eom 

30 PRINT TAB(8); "WATER BALLOONS!" 

40 PRINT 

50 PRINT TAB(4); "Press any key to begin." 

60 GET n$ 

70 HOI^ 

80 PRINT "You are on the 7th floor" 

85 PRINT "balcony of a building," 

90 PRINT "blindfolded. You are trying" 
100 PRINT "to drop water balloons into" 
105 PRINT "the center of a hoop on the" 
110 PRINT "ground below. To do so," 
115 PRINT "you must set your north/south" 
120 PRINT "and west/east coordinates" 
125 PRINT "according to your friend^ s" 
150 PRINT "help on the ground." 

149 REM ^"^"^ pick coordinates "^^"^ 

150 la = INT(RND(1 )^10)+1 
160 lo = INT(RND(1 )*10)+1 
170 PRINT 

180 PRINT 

190 PRINT "1=extreme south, 10=extreme north." 

200 PRINT "1=extre[ne west, 10=extreme east." 

210 PRINT 

220 PRINT "You nbw have "; b; " water balloons < 

230 PRINT "What's your guess" 

235 PRINT "(between 1 and 10)" 

240 PRINT "for the north/south coordinates" 
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245 

250 

260 

265 

270 

GOTO 

280 

290 

299 

300 

310 

320 

330 

340 

349 

350 

360 

370 

380 

390 

400 

410 

420 

429 
430 
440 
450 
460 
470 
499 
500 



INPUT ns 

IP ns < 1 OR ns > 10 THEN 230 
PRINT "What' s your guess for west/east" 
INPUT ew 

IP ew < 1 OR ew > 10 THEN PRINT "It must be between 1 and 10!" 
260 

IP ns = la AND ew = lo THEN 500 
PRINT 

REM *** scroll 
FOR X = 1 TO 24 
PRINT 
NEXT X 

PRINT "Your friend 
PRINT 
REM *** compare 

la THEN 

la THEN 

la THEN 

lo THEN 

lo THEN 

lo THEN 



screen *** 



below says:' 



IP 
IP 
IP 
IP 
IP 
IP 



ns > 
ns < 
ns = 
ew > 
ew < 
ew = 
b = b-1 



coordinates *** 
PRINT "Too far north!" 
PRINT "Too far south!" 
PRINT "North, south O.K.!" 
PRINT "Too far east!" 
PRINT "Too far west!" 
PRINT "East, west O.K.!" 



IP b < 1 THEN 800 

1^14 *#* randomly pick two other ways to lose *** 
X = INT(RND(1 )*30)+1 
IP X = 7 THEN 600 
IP X = 13 THEN 700 
PRINT 
GOTO 190 

REM *** ¥IN! *** 
HOI^ 

510- PRINT "You hit in "; 10-b; " tries!" 
520 PRINT 

PRINT "Press any key to play again." 

GET n$ 

GOTO 150 

REM *** hit Mom or Policeman *** 

PRINT 

"You plastered your Mom as she" 

"walked out to see what was' 

"going on." 

"YOU LOSE!" 



530 
540 
550 
599 
600 
610 
620 
630 
640 
650 
700 
710 
720 
730 
740 
799 
800 
810 
820 
830 
840 
850 



■,» 



PRINT 

PRINT 

PRINT 

PRINT 

END 

HOME 

PRINT 

PRINT 

PRINT 

END 

REM *** 

PRINT 

PRINT "You're out of water balloons!" 

PRINT "YOU LOSE. The coordinates were 

PRINT " north/ south="; la 

PRINT "east/west="; lo 

END 



"You hit the Policeman on the" 
"head. He confiscates your hoop" 
"and you lose the game!" 

LOSE *** 



80 



10 AWESOME PROGRAMS FROM K-POWER 



Apple II and Apple He 




1 REH *** WATER BALLOONS AF'PLE *** 




10 B == 10 




20 


HOME 




30 


PRINT TAB( 12) "WATER BALLOONS!" 




40 


PRINT 




50 


PRINT TAB( 8) "PRESS ANY KEY TO BEBIN. " 




60 


SET m- 




70 


HOME 




80 


PRINT "YOU ARE ON THE 7TH F-LOOR BALCONY OF A" 




90 


PRINT "BUILDING, BLINDFOLDED. YOU ARE TRY INS" 




100 


PRINT "TO DROP WATER BALLOONS INTO THE CENTER" 




110 


PRINT "OF A HOOP ON THE SROUND BELOW,, " 




120 


PRINT "TO DO SO, YOU MUST SET YOUR NORTH/SOUTH" 




130 


PRINT "AND WEST/EAST COORDINATES ACCORDING" 




140 


PRINT "TO YOUR FRIEND'S HELP ON THE GROUND" 




149 


REM *** PICK COORDINATES *** 




150 


LA = INT ( RND (1) * 10) •■!■ 1 




160 


LO ■■== INT ( RND <1) * 10) h- 1 




170 


PRINT 




180 


PRINT 




190 


PR I NT " 1 =E X TREME SOUTH , 1 0=E X TREME NORTH „ " 




200 


PRINT "1=EXTREME WEST, 10---=EXTREME EAST" 




210 


PRINT 




220 


PRINT "YOU NOW HAVE "B" WATER BALLOONS,." 




230 


PRINT "WHAT'S YOUR GUESS (BETWEEN 1 AND 10)" 




240 


INPUT "FOR THE NORTH/SOUTH COORDINATES!; " r. NS 




250 


IF NS < 1 OR NS > 10 THEN 230 




260 


INPUT "WHAT'S YOUR GUESS FOR WEST /EAST i; " 5 EW 




270 


IF EW < 1 OR EW > 10 THEN PRINT "IT MUST BE BETWEEN 1 AN 10! "s 


SOTO 260 




280 


IF NS = LA AND EW = LO THEN 500 




290 


PRINT 




299 


REM *** SCROLL SCREEN #** 




300 


FOR X = 1 TO 24 




310 


PRINT 




320 


NEXT X . 




330 


PRINT "YOUR FRIEND BELOW SAYGs " 




340 


PRINT 




349 


REM *■»* COMPARE COORDINATES *** 




350 


IF LA •••:: NS THEN PRINT "TOO FAR NORTH!" . 




360 


IF LA > NS THEN PRINT "TOO FAR SOUTH!" 




370 


IF LA = NS THEN PRINT "NORTH, SOUTH 0,K„!" 




380 


IF EW > LO THEN PRINT "TOO FAR EAST!" 




390 


IF EW < LO THEN PRINT "TOO FAR WEST ! " 




400 


IF EW = LO THEN PRINT "EAST, WEST O.K. !" 




410 


B = B - 1 




420 


IF B < 1 THEN 800 




429 


REM **# RANDOMLY PICK TWO OTHER WAYS TO LOSE *** • 




430 


X '■--- INT ( RND (1) * 30) + 1 




440 


IF X = 7 THEN 600 




450 


IF X ■■=■■■ 13 THEN 700 




460 


PRINT 




470 


GOTO 190 ■ 




499 


REM ***:• WIN! ■*** 




500 


HOME 




510 


■PRINT "YOU HIT IN "10 B" TRIES!" 
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520 PRINT 

530 PRINT "PRESS ANY KEY TO PLAY AGAINu " 

540 GET N$ 

550 RUN 

599 REH *** HIT MOM OR PjDL ICEMAN *** 

600 PRINT 

610 PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 

620 PRINT "OUT TO SEE WHAT WAS GOING ON!" 

630 PRINT "YOU LOSE!" 

640 END 

700 HOME 

710 i='RINT "YOU HIT THE POLICEMAN ON THE HEAD." 

720 PRINT "HE CONFISCATES YOUR HOOP AND YOU" 

730 PRINT "LOSE THE GAME!" 

740 END 

799 REM *** LOSE *** 

800 PRINT 

810 PRINT "YOU'RE OUT OF WATER BALLOONS!" 

820 PRINT "YOU LOSE„ THE COORDINATES WEREs " 

830 PRINT "NORTH/SOUTH="LA 

840 PRINT "EAST/WEST="LO 

850 END 

Atari 

1 REM K-s-» I'irtiER BALLOONS ATARI *** 

10 DIM. R*(l) ;B^=10 

20 PRINT CHR*<125) 

30 POSITION 12,0 

40 PRINT "WATER EJALLOONS! " 

50 POSITION 8 „ 35 PRINT "PF^ESS (RETRUN) TO START "5 

60 60SUB 1 000 

70 PRINT CHR*(125,' 

80 PRINT "YOU ARE ON THE 7TH FLOOR BALCONY OF A" 

90 PRINT "BUILDING, BLINDFOLDED. YOU ARE TRYING" 

100 PRINT "TO DROP WATER BALLOONS INTO A HOOP," 

110 PRINT "ON THE GROUND BELOW. TO DO SO," 

120 PRINT "YOU MUST SET YOUR NORTH/SOUTH" 

130 PRINT "AND EAST/WEST COORDINATES ACCORDING" 

140 PRINT "TO YOUR FRIEND S HELP ON THE GROUND." 

149 REM *** PICK COORDINATES •»#* 

1 50 L A= 1 N T < RND (1 ) * 1 ) -i- ;|. 
1 60 L0= I NT' < RN D ( ]. ) ^ 1 o ) + 1 
170 PR IN! 

180 PRINT 

190 PRINT "1=^EXTREME SOUTH - lO^EXTREME NORTH" 

200 PRINT "1^=EXTREME WEST - 10"EXTREME EAST" 

210 PRINT 

22U PRINT "YOU HAVE "565" WATER BALLOONS." 

230 PRINT "WHAT S YOUR GUESS (BETWEEN 1 AND 10)" 

240 PRINT "FOR THE NORTH/ SOUTH COORDINATES" 5 INPUT NS 

250 IF NS<1 OR NS>10 THEN 230 

260 PRINT "WHAT'S YOUR GUESS FOR WEST /EAST" s INPUT EW 

270 IF EW<1 OR EW..-10 THEN PRINT "IT MUST BE WITHIN 1 AND 10!"5GQTQ 2&0 

280 IF NS=--=LA fMlD EW=LO THEN 500 

290 PRINT 

299 REM *** SCROLL SCREEN *•»* 

300 FOR X=^l TO 24 
310 PRINT' 

320 NEXT X 
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330 PRINT "YOUR FRIEND BELOW SAYSs " 
340 PRINT 

349 REM ^^^ COMPARE COORDINATES *** 

350 IF NS>LA THEN PRINT "TOO FAR NORTH!" 
360 IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
370 IF NS==LA THEN PRINT "NORTH /SOUTH 0«K«!" 
380 LF EW>L0 THEN PRINT "TOO FAR EAST!" 
390 IF EW<LO T\4lk PRINT "TOO FAR WEST!" 
400 IF EW^^^LO U-\EM PRINT "EAST/WEST 0-K.. !" 
410 B:^=B-1 

420 if B<i n\m 800 

429 REM -^-^^ RANDOMLY PICK TWO OTHER WAYS TO LOSE •$«••«•# 

430 X -^^ I NT ( RND (1 ) -H- 30 ) f 1 
440 IF y.^7 THEN 600 
450 IF X^J.3 THEN 700 
460 PRINT 

470 GOTO 190 

499 REM -J^-^-J^- WIN! •^•«-«- 

500 PRINT CHRt(i25) 

510 PRINT '^YOU HIT IT IN ";9-B;" TURN (8)!" 

520 PRINT 

530 PRINT "PRESS (RETURN) TO PLAY AGAIN.." 

540 GGSUB 1000 

550 RUN 

599 REM •^•^•^ HIT MOM OR POLICEMAN **>^ 

600 PRINT 

610 PRINT ^^YOU PLASTERED YOUR MOM AS SHE WALKED" 

620 PRINT "OUT TO SEE WHrfT WAS .GOING 0H\'' 

630 PRINT "YOU LOSE! " 

640 END 

700 PRINT CHR:$^(125) 

710 PRINT "YOU HIT THE POLICEMAN ON THE HEADu " 

720 PRINT "HE CONFISCATES YOUR HOOP" 

730 PRINT "AMD YOU LOSE THE GAME!" 

740 END 

799 F^EM 5i-^-^* L.OSE -J^-J^J^- 

BOO PRINT 

810 PRINT "YOU RE OUT OF WATER BALLOONS!" 

820 PRINT "YOU LOSE. THE COORDINATES WEREs " 

830 PR I N I " NORTH /" SOU TIT^^^- " ; LA 

840 PRINT "EAS! /WEST^^^ " S LO 

850 END 

1000 INPUI R$ 

1020 RETURN 

Commodore 64 

i REM *** WATER BfiLLOONS 64 *** 

10 B=l«2 

£0 PRINT CHR*(147> 

30 PRINT TAB (1£) "WATER BfiLLOONS ! " 

40 PRINT 

50 PRINT TAB (8) "PRESS (SHIFT) TO BEGIN. " 

60 GOSUB 1000 

69 REM *** INTRODUCTION ♦** 

70 PRINT CHR*(147) 

80 PRINT "YOU ARE ON THE 7TH FLOOR BALCONY OF A" 
90 PRINT "BUILDING, BLINDFOLDED. YOU ARE TRYING" 
100 PRINT "TO DROP WATER BALLOONS INTO A HOOP" 
110 PRINT "ON THE GROUND BELOW." 
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1£0 PRINT "TO DO SO, YOU MUST SET NORTH/SOUTH" 
130 PRINT "fiND WEST/EftST COORDINATES flCCORDING" 
140 PRINT "TO YOUR FRIEND»S HELP ON THE GROUND. " 

149 REM **♦ PICK COORDINATES *** 

150 Lfl=INT<RND(l)*10)+l 
160 LO=INT(RND(1)*10)+1 
170 PRINT 

180 PRINT 

190 PRINT "1=EXTREME SOUTH - 10=EXTREME NORTH" 

£00 PRINT "1=EXTREME WEST - 10=EXTREME EAST" 

£10 PRINT 

£19 REM *** MAIN LOOP «♦* 

££0 PRINT "YOU NOW HAVE"B" WATER BALLOONS. " 

£30 PRINT "WHAT'S YOUR GUESS (BETWEEN 1 AND 10)" 

£40 INPUT "FOR THE NORTH/SOUTH COORDINATE" ;NS 

£50 IF NS<1 OR NS> 10 THEN £30 

£60 INPUT "WHAT'S YOUR GUESS FOR WEST/EAST" ;EW 

£70 IF EW<1 OR EW>10 THEN PRINT "IT MUST BE WITHIN 1 AND 10!":GOTO £60 

£80 IF NS=LA AND EW=LO THEN 500 

£90 PRINT 

£99 REM *** SCROLL SCREEN ♦** 

30(3 FOR X=l TO £4 

310 PRINT 

3£0 NEXT X 

330 PRINT "YOUR FRIEND BELOW SAYS:" 

340 PRINT 

349 REM *** COMPARE COORDINATES «♦* 

350 IF NS>LA THEN PRINT "TOO FAR NORTH!" 
360 IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
370 IF NS=LA THEN PRINT "NORTH, SOUTH O.K. i" 
380 IF EW>LO THEN PRINT "TOO FAR EAST!" 

390 IF EW<LO THEN PRINT "TOO FAR WEST i " 

400 IF EW=LO THEN PRINT "EAST, WEST O.K. !" 

410 B=B-1 

4£0 IF B<1 THEN 800 

4£9 REM **♦ RANDOMLY PICK TWO OTHER WAYS TO LOSE ♦** 

430 X=INT(RND(1)*30>+1 

440 IF X =7 THEN 600 

450 IF X=13 THEN 700 

460 PRINT 

470 GOTO 190 

499 REM «** WIN! **» 

500 PRINT CHR*(147) 

518 PRINT "YOU HIT IT IN"10-B"TRIESi " 

5£0 PRINT 

530 PRINT "PRESS (SHIFT) TO PLAY AGAIN." 

540 GOSUB 1000 

550 RUN 

599 REM ♦*♦ HIT MOM OR POLICEMAN *** 

600 PRINT 

610 PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 

6£0 PRINT "OUT TO SEE WHAT WAS GOING ON!" 

630 PRINT "YOU LOSE!" 

640 END 

700 PRINT CHR*(147) 

710 PRINT "YOU HIT THE POLICEMAN ON THE HEAD." 

7£0 PRINT "HE CONFISCATES YOUR HOOP" 

730 PRINT "AND YOU LOSE THE GAME!" 

740 END 
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799 REM *** LOSE *** 

800 PRINT 

810 PRINT "YOU'RE OUT OF WATER BALLOONS!" 

820 PRINT. "YOU LOSE. THE COORDINATES WERE:" 

830 PRINT "NORTH/SOUTH="LA 

840 PRINT "EAST/WEST="LO 

850 END 

1000 WAIT 653, 1 

1010 WAIT 853, 1,1 

1020 RETURN 



IBM PC 

I. REM «•** 
10 B=10 
20 CLS 
30 PRINT " 
40 PRINT 
50 PRINT " 
60 OOSUB .1. 
70 CLS 
80 PRINT " 
90 PRINT ■' 
100 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
180 PRINT 
190 PR INI' 

199 REM «■•«• 

200 LA- I NT 
210 LO^^IHi 
220 PRINT 
230 PRINT 
240 GQBUB 
250 CLS 
260 PRINT 

2?0 PRlWi "l^^EXTREME SOUTH-" 

280 PRINT "10=--EX IRENE NOR TTi " 

290 FT-:: 1 N T " 1 =E X T REME l-JEST-- " 

300 PRINT "10:-=EX IRENE EAST "' 

310. PRINT 

::;20 PR I ITT "YOU NON H(^iVE"B" WATER BALLOONS." 

330 PRINT "WHAT IS v OUR GUESS " 

340 PRINT "(eETWEENl AND 10)" 

350 PRINT "POR THE NORTH/SOUTH" 

360 INPUT "COORDINATE" 5 NS 

370 IP NS<.1 OR i-IS>10 THEN 340 

380 PRINT "WHAT IS VOUR GUESS" 

390 irJPUT "FOR WEST AND EAST";EW 

400 IF E(.vl<l OR EW.>10 THEN 380 

410 IF NS=LA AlID EW~LO THEN 700 

420 PRINT 

430 FOR X^^l 10 24 

440 PRINT 

450' NEiXT X 



•#VTER BALLOONS IBM-PC **« 



WATER BAL(...OONS ! " . 

PRESS (ENTER) TO BEGIN." 
1 00 

YOU i:iRE ON THE 7TH" 

FLOOR BALCONY OF A" 

" BU 1 1 .. D I NG H BL I NDFOL DED . " 

"t'OU ARE TRYING TO" 

"DROP I'JATER BALLOONS" 

"INTO THE CENTER OF" 

"A HOOP ON THE GROUND BELOW. " 

"TO DO SO, vOU MUST SET" 

"YOUR l-IORIH/SOUTH AND" 

" WEST / EAS I COORD I NATES " 

"WITH YOUR FRIEND'S" 

"HELP ON THE GROUND. " 

* RANDOMLY PICK COORDINATES *s* 

<RND';l)i*10)Hl 

(RND<. 1)*10) f 1 

"PRESS (ENIER) TO FLAv" 
1100 
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460 PRINT "YOUR FRIEND BELOt^J SAYS" 
470 PRINT 

479 REN •M-.^-j.E- COHPARE COORDINATES ^-^"^ 

480 IF NS>LA THEN PRINT "TOO FAR NORTH!" 
490 IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
500 IF NS==:LA THEN PRINT "NORTH/SOUTH O.K.!" 
^10 IF Et^DLO THEN PRINT "TOO FAR EAST!" 
520 IF EN<LO THEN PRINT "TOO FAR WEST!" 
530 IF EN=^LO THEN PRINT' "EAST/WEST O.. K«'" 
540 B:-B-l 

550 IF E«l THEN 1000 

559 REM -^^^r RANDOMLY TWO OTHER WAYS TO LOSE ^^-^^ 

560 X:^INT(RND(l)-^30) 
570 IF X-7 THEN 800 
580 IF X-13 THEN 900 
590 PRINT 

600 GOTO 270 

699 REM •^•^•>^ (aIIN *#* 

700 CLS 

710 PRINT "YOU HIT IT IN" 10™B" TRIES" 

720 PRINT 

730 PRINT "PRESS (ENTER) TO PLAY AGAIN-" 

740 GOSUB 1100 

750 RUN 

799 REM ^-M-^ HIT MOM OR COP ^^^■^.^ 

300 PRINT 

810 PRINT "YOU HIT YOUR MOM ON THE SIDEWALK!" 

820 PRINT "YOU LOSE LIKE YOU WOULDN T BELIEVE." 

830 END 

900 CLS 

910 PRINT "YOU HIT A POLICEMAN ON THE HEAD„ " 

920 PRINT "HE CONFISCATES YOUR HOOP." 

930 PRINT "YOU LOSE! " 

940 END 

999 REM •5^")^-* LOSE ^^-^ 

1000 PRINT 

1010 PRINT "YOU RE OUT OF WATER" 
1020 PRINT "BALLOONS. YOU LOSE!" 
1030 PRINr "THE COORDINATES WEREs " 
1040 PRINT "NORTH/SOUTH^"LA 
1050 PRINT "EAST/WEST=:-^"LO 
1060 END 

1099 REM ^•^•^- WAIT ROUTINE •^••^•^• 

1100 INPUT R:f: 
1120 RETURN 

TI-99/4A 

1 REM -^-^-^ WATER BALLOONS TI99/4A -^ )^s- 

10 8^-10 

20 CAIJ.. CLEAR 

30 PR I N T " W A TER BALLOONS ! ^' 

40 PR IN I 

50 PRINT "PRESS (ENTER) TO BEGIN" 

60 INPUT R:$: 

70 CALL CLEAR 

30 PRINT "YOU ARE ON THE 7TH" 

90 PRINT "FLOOR BALCONY OF A" 

100 PRINT "BUILDING. BLINDFOLDED." 

110 PRINT "YOU ARE TRYING TO" 
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120 PRir^4T "DROP WATER BALLOONS," 
130 PRINT "INTO THE CENTER OF" 
140 PRINT "A HOOP ON THE GROUND- " 
150 PRINT "TO DO SO YOU MUST SET" 
160 PRINT "YOUR NORTH /SOUTH AND" 
170 PRINT "WEST/EAST COORDINATES" 
180 PRINT "WITH YOUR FRIEND'S" 
190 PRINT "HELP ON THE 8R0UND« " 

199 REM •^•x-^ RANDOMLY PICK COORDINATES ^-^^ 

200 RANDOMIZE 

210 LA=^INT(10}^RND)-t"l 

220 L0==INr(i0-5«F<ND)-M 

230 PRINT "PRESS (ENTER) TO PLAY" 

240 INPUT R:$- 

250 CALL CLEAR 

260 PRINT" 

270 PRINT "i::^:EXTREME SOUTH " 

280 PRINT "10=::^=EXTREME NORTH" 

290 PRINT "1=^EXTREME WEST " 

300 PRINT "lO^EXTREME EAST" 
310 PRINT 

319 REM ^^-^ INPUT GUESS ^^-^ 

320 PRINT "YOU NOW HAVE";e 
330 PRINT' "WATER BALLOONS" 
340 PRINT "WHAT S VOUR GUESS" 
350 PRINT "(BETWEEN 1 AND 10)" 
360 PRINT "FOR THE NORTH/SOUTH" 
370 PR I NT" " COORD I N A TE " n 

380 ]:nput NS 

389 REM •^-^•^- COMPARE COORDINATES ^"^-^^ 

390 IF NSU. THEN 3^0 
400 IF NS:>10 THEN 350 

410 PRINT "WHA'I S YOUR GUESS" 

420 PRINT "FOR EAST/WEST";; 

430 INPUT EW 

440 IF El^Kl THEN 410 

450 IF EW>10 THEN 410 

460 IF NS=:^=-LA \'HEH 470 ELSE 4S0 

470 IF EW=^=LO THEN 730 ELSE 480 

479 REM •^••^•^- SCROLL SCREEN -^-^^ 

480 PRINT 

490 FOR X-=l 10 24 

500 PRINT 

510 NEXT X 

520- PRINT "YOUR FRIEND SAYS" 

530 PRINT 

540 IF NS>LA THEN 550 ELSE 560 

550 PRINT "TOO FAR NORTH!" 

560 If NS<LA IHEN 570 ELSE 580 

570 PR IN I "TOO FAR SOUTH!" 

5S0 LF NS^=4._H IHEIT 59^) ELSE 600 

590 PRINT "NOR ML SOUIH 0„K.!" 

600 IF EW>Ln THEN 6 10 ELSE 620 

610 PRINT "TOO FAR EAST!" 

620 IF EW<LO T"HEN 630 ELSE 640 

630 PRINT "TOO FAR WEST!" 

640 IF EM^LO THEH 650 ELSE 660 

650 PR I NT " EAS T / WES I . K « ! " 

660 B^e-"1 
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670 


IF B<1 THEN 890 


679 


REM *** pick; two other ways to lose *** 


680 


X-INT(30*RND)+1 


690 


IF X=7 THEN 790 


700 


IF X=13 THEN 840 



710 PRINT 

720 GOTO 270 

730 CALL CLEAR 

740 PRINT "GOT IT IN" ; 9--B; " TURN <S) ! " 

750 PRINT 

760 PRINT "PRESS (ENTER) TO PLAY." 

770 INPUT R* 

780 eOTO iO 

789 REM K-** HIT MOM OR COP *** 

790 CALL CLEAR 

800 PRINT "V'OU HIT VOUR MOM ON" 

8 1 PR INT " T HE S I DE W ALK '. " 

820 PRINT "YOU LOSE!" 

830 END 

840 CALL CLEAR 

850 PRINT "YOU HIT THE POLICEMAN!" 

860 PRINT "HE CONFISCATES YOUR" 

870 PRINT "HOOP. YOU LOSE!" 

880 END 

890 PRINT 

899 REM *«* OUT' OF BALLOONS -LOSE *** 

900 PRINT "YOU'RE OUT OF WATER" 
910 PRINT "B(U.LOONS. YOU LOSE!" 
920 PRINT "THE COORDINATES WEREs " 
930 PRINT "NOR !>■!•■ SOU rH=" ? LA 

940 PR I NT " E AS |- / WES T == " s LO 
950 END 

Timex 1000 w/16K RAM Pack and Timex 1500 

1 REM *#* WATER BALLOONS TIMEX *** 

10 LET B=10 

20 CLS 

30 PRINT TAB (9) ; "WATER BALLOONS" 

40 PRINT 

50 PRINT TAB (5) 5 "PRESS (ENTER) TO BEGIN." 

60 INPUT R* 

70 CLS 

80 PRINT "YOU ARE ON THE 7TH FLOOR" 

90 PRINT "BALCONY OF A BUILDING, " 
100 PRINT "BLINDFOLDED. YOU ARE TRYING" 
110 PRINT "TO DROP WATER BALLOONS INTO" 
120 PRINT "A HOOP ON THE GROUND BELOW. " 
130 PRINT "TO DO SO YOU MUST SET YOUR" 
140 PRINT "NORTH/SOUTH AND WEST/EAST" 
150 PRINT "COORDINATES ACCORDING TO YOUR" 
160 PRINT "FRIENDS HELP ON THE GROUND." 

169 REM *** PICK COORDINATES *** 

170 LET A=INT (RND*10)+1 
180 LET 0=INT (RND*10)+1 
190 PRINT 

200 PRINT "PRESS (ENTER) TO CONTINUE." 

210 INPUT R* 

220 CLS 

230 PRINT "1=EXTREME SOUTH/ 10=EXTREME NORTH' 
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240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

349 

350 

360 

370 

380 

390 

399 

400 

410 

420 

430 

440 

450 

460 

470 

479 

480 

490 

500 

510 

520 

529 

530 

540 

550 

560 

570 

580 

599 

600 

610 

620 

630 

640 

700 

710 

720 

730 

740 

799 

800 

810 

820 

830 

840 

850 



PRINT "1=EXTREME WEST/10«EXTREME EAST" 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IF N<1 



"YOU NOW 
"WHAT IS 
"FOR THE 
N 
OR N>10 



HAVE ";B5" WATER BALLOONS. 
YOUR GUESS, BTWN 1-10" 
NORTH/SOUTH COORDINATE?" 



PRINT "WHAT IS 

INPUT W 

IF W<1 OR W>10 

IF N=A AND W-0 

REM *** SCROLL 

FOR X=l TO 8 

SCROLL 

PRINT 

NEXT X 

CLS 

REM *** 

IF N>A 

IF N<A 

IF N=A 

IF W>0 

IF W<0 

IF W=0 

LET B=B 



THEN 
YOUR 



GOTO 260 
GUESS FOR 



WEST/EAST?" 



THEN GOTO 310 
THEN GOTO 530 
SCREEN *** 



COMPARE COORDINATES **» 

THEN PRINT "TOO FAR NORTH" 

PRINT "TOO FAR SOUTH" 

PRINT "NORTH, SOUTH 0. 

PRINT "TOO FAR EAST" 

PRINT "TOO FAR WEST" 

PRINT "EAST, WEST O.K. 



THEN 
THEN 
THEN 
THEN 
THEN 
1 



K. 



TO PLAY AGAIN. 



«♦♦ 



IF B<1 THEN GOTO 800 

REM *** RANDOM PICK OF TWO OTHER WAYS TO LOSE **» 

LET X=INT (RND*30)+1 

IF X=7 THEN GOTO 600 

IF X=13 THEN GOTO 700 

PRINT 

GOTO 230 

REM »«* WIN **« 

CLS 

PRINT "YOU HIT IT IN ";10-B;" TRIES" 

PRINT 

PRINT "PRESS (ENTER) 

INPUT R* 

RUN 

REM »** HIT MOM OR POLICEMAN 

PRINT 

PRINT "YOU PLASTERED YOUR MOM 

PRINT "WALKED OUT TO SEE WHAT 

PRINT "GOING ON. YOU LOSE. " 

GOTO 850 

CLS 

PRINT "YOU HIT THE POLICEMAN ON THE" 

PRINT "HEAD. HE CONFISCATES YOUR HOOP" 

PRINT "AND YOU LOSE THE GAME." 

GOTO 850 

REM **« LOSE *** 

PRINT 

"you are out of water balloons." 
"you lose. the coordinates were:" 
"north/south=";a 
"east/west=";0 



AS SHE" 
WAS" 



PRINT 
PRINT 
PRINT 
PRINT 



REM *** END **♦ 
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TRS-80 Color Computer 

1 REM ♦** WfiTER BALLOONS TRS-80 COLOR ♦♦* 



10 

20 
30 
40 
50 
60 
70 
80 
90 

100 

110 
120 
130 
140 
150 
160 
170 
180 
190 
199 

200 

£10 
220 
£30 
240 
£50 
260 
£70 
280 
£90 

300 

310 
319 
320 
330 
340 
350 
360 
370 
380 
390 

400 

410 
419 
420 
430 
440 
450 
4&0 
470 
479 
480 
490 

500 

510 
520 



B=10 
CLS 
PRINT 
PRINT 
PRINT 
GOSUB 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



"WfiTER BftLLOONS!" 



"PRESS 

1100 



(ENTER) TO BESIN" 



"YOU ARE ON THE 7TH" 
"FLOOR BALCONY OF fl" 
"BUILDING, BLINDFOLDED" 
"YOU ARE TRYING TO" 
"DROP WATER BALLOONS, " 
"INTO THE CENTER OF" 
"A HOOP ON THE GROUND BELOW. " 
"TO DO SO, YOU MUST SET" 
"YOUR NORTH/SOUTH AND" 
"WEST/EAST COORINATES" 
"WITH YOU FRIEND'S" 
"HELP ON THE GROUND. " 

REM ♦** RANDOMLY PICK COORDINATES *♦* 

LA=RND(10) 

LO=RND(10) 

PRINT 

"PRESS (ENTER) TO PLAY" 

1100 



"1=EXTREME SOUTH-" 
"10=EXTREME NORTH" 
"1=EXTREME WEST-" 
"10=EXTREME EAST" 



PRINT 

GOSUB 

CLS 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

REM ♦** MAIN LOOP ♦** 

PRINT "YOU NOW HAVE"B"WATER BALLOONS. 

PRINT "WHAT IS YOUR GUESS" 

PRINT "(BETWEEN 1 AND 10)" 

PRINT "FOR THE NORTH/SOUTH" 

INPUT "COORDINATE" ;NS 

IF NS<1 OR NS>10 THEN 340 

PRINT "WHAT'S YOUR GUESS" 

INPUT "FOR EAST/WEST" ;EW 

IF EW<1 OR EW>10 THEN 380 

IF NS=LA AND EW=LO THEN 700 

REM ♦♦* SCROLL SCREEN **♦ 

PRINT 

FOR X=l TO 24 

PRINT 

NEXT X 

PRINT "YOUR FRIEND BELOW SAYS" 

PRINT 

REM *♦* COMPARE COORDINATES *♦♦ 

IF NS>LA THEN PRINT "TOO FAR NORTH!" 

IF NS<LA THEN PRINT "TOO FAR SOUTH!" 

IF NS=LA THEN PRINT "NORTH/SOUTH O.K. 

IF EW)LO THEN PRINT "TOO FAR EAST! 

IF EW<LO THEN PRINT "TOO FAR WEST!" 
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530 
540 
550 
559 
5G0 
570 
580 
590 

600 

699 

700 

710 
720 
730 
740 
750 
799 

800 

810 
820 
830 
840 

900 

910 
9£0 
930 
940 
999 

1000 
1010 
1020 
1030 
1040 
1050 
1060 

1099 

1100 

1120 



IF EW=LO THEN PRINT "EflST/WEST O.K.!" 

B=B— 1 

IF B<1 THEN 1000 

REM ♦»* RPINDOMLY TWO OTHER WAYS TO LOSE ♦♦* 

X=RND(30) 



IF X=7 THEN 800 

IF X=13 THEN 900 

PRINT 

GOTO 270 

REM *** WIN! *** 

CLS 

PRINT "YOU HIT IT IN" 10-B"TRIES" 

PRINT 

PRINT "PRESS (ENTER) TO PLOY flGftIN" 

GOSUB 1100 

RUN 

REM *** HIT MOM OR COP *♦* 

PRINT 

PRINT "YOU HIT YOUR MOM ON" 

PRINT "THE SIDEWALK!" 

PRINT "YOU LOSE!" 

END 

CLS 

PRINT "YOU HIT ft POLICEMAN ON THE HEAD." 

PRINT "HE CONFISCATES YOUR HOOP. " 

PRINT "YOU LOSE!" 

END 

REM ♦♦♦ LOSE *** 

PRINT 

PRINT "YOU' RE OUT OF WATER" 

PRINT "BALLOONS. YOU LOSE!" 

PRINT " THE COORDINATES WERE:" 

PRINT "NORTH/SOUTH="LA 

PRINT "EAST/WEST="LO 

END 

REM *** WAIT ROUTINE *** 

INPUT R* 

RETURN 



TRS-80 Model III and Model 4 

1 REM *** WATER BALLOONS 



TRS-80 MODELS 3 AND 4 *** 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130, 

140 

149 

150 

160 

170 



B=10 
CLS 
PRINT 
PRINT 
PRINT 
GOSUB 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



TAB (32) "WATER BALLOONS I 



TABC 
1 000 



IS) "PRESS (ENTER) TO BEGIN"; 



"YOUR ARE ON THE 7TH FLOOR BALCONY OF A" 
"BUILDING, BLINDFOLDED. YOU ARE TRYING" 
"TO DROP WATER BALLOONS INTO A HOOP ON" 
"THE GROUND BELOW. TO DO SO, YOU MUST" 
"SET YOUR NORTH/SOUTH AND WEST/EAST" 
"COORDINATES ACCORDING TO YOUR FRIEND'S" 
"HELP ON THE GROUND." 

REM *«* RANDOMLY PICK COORDINATES *** 

LA=RND(10) 

L0=RND(10) 

PRINT 
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130 PRINT 

190 PRINT "1=EXTREME SOUTH - 10=EXTREME NORTH" 

200 PRINT "1=EXTREME WEST - 10=EXTREME EAST" 

210 PRINT 

220 PRINT "YOU NOW HAVE"B"WATER BALLOONS. " 

230 PRINT "WHAT'S YOUR GUESS (BETWEEN 1 AND 10)" 

240 INPUT "FOR THE NORTH/SOUTH COORD I NATE ";NS 

250 IF NS<1 OR NS>10 THEN 230 

260 INPUT "WHAT'S YOUR SUESS FOR WEST/EAST"; EW 

270 IF EW<1 OR EW>10 THEN 230 

280 IF NS=LA AND EW=LO THEN 500 

289 REM **♦ SCREEN SCROLL *♦* 

290 FOR X=l TO 24 
300 PRINT 

310 NEXT X 

320 CLS 

330 PRINT "YOUR FRIEND BELOW SAYS: " 

340 PRINT 

349 REM *** COMPARE COORDINATES *♦# 

350 IF NS>LA THEN PRINT "TOO FAR NORTH!" 
360 IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
370 IF NS=LA THEN PRINT "NORTH/SOUTH O.K.!" 
380 IF EW>LO THEN PRINT "TOO FAR EAST!" 
390 IF EW<LO THEN PRINT "TOO FAR WEST!" 
400 IF EW=LO THEN PRINT "EAST/WEST O.K.'" 
410 B=B-1 

420 IF B<1 THEN 800 

429 REM **» RANDOMLY TWO OTHER WAYS TO LOSE *** 

430 X=RND(30) 

440 IF X=7 THEN 600 
450 IF X=13 THEN 700 
460 PRINT 
470 GOTO 190 

499 REM *** WIN! *** 

500 CLS 

510 PRINT "YOU HIT IT IN" 10-B"TRIES ! " 

520 PRINT 

530 PRINT "PRESS (ENTER) TO PLAY AGAIN" 

540 GOSUB lOOO 

550 RUN 

599 REM *** HIT MOM OR COP ♦*» 

600 PRINT 

610 PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 

620 PRINT "OUT TO SEE WHAT WAS GOING ON!" 

630 PRINT "YOU LOSE!" ' 

640 END 

700 CLS 

710 PRINT" YOU HIT A POLICEMAN ON THE HEAD." 

720 PRINT "HE CONFISCATES YOUR HOOP" 

730 PRINT "AND YOU LOSE THE GAME!" 

740 END 

799 REM *** LOSE ♦** 

800 PRINT 

810 PRINT "YOU'RE OUT OF WATER BALLOONS ! " 

820 PRINT "YOU LOSE. THE COORDINATES WERE:" 

830 PRINT "NORTH/SOUTH="LA 

840 PRINT "EAST/WEST="LO 

850 END 

999 REM **♦ WAIT ROUTINE «♦♦ 
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1000 INPUT R* 
1010 RETURN 

yic-20 

1 REM ♦*♦ WATER BftLLOONS VIC-20 **♦ 

10 B=10 

£0 PRINT CHR*<147) 

30 PRINT "WATER BALLOONS!" 

40 PRINT 

50 PRINT "PRESS (SHIFT) TO BEGIN" 

60 GOSUB 1100 

70 PRINT CHR*<147) 

80 PRINT "YOU ARE ON THE 7TH" 

90 PRINT "FLOOR BALCONY OF A" 

100 PRINT "BUILDING, BLINDFOLDED. " 

110 PRINT "YOU ARE TRYING TO" 

1£0 PRINT "DROP WATER BALLOONS" 

130 PRINT "INTO THE CENTER OF" 

140 PRINT "A HOOP ON THE GROUND. " 

150 PRINT "TO DO SO, YOU MUST" 

160 PRINT "SET NORTH/SOUTH AND" 

170 PRINT "WEST/EAST COORDINATES" 

180 PRINT "WITH YOUR FRIEND'S" 

190 PRINT "HELP ON THE GROUND." 

199 REM *** PICK COORDINATES *** 

£00 LA=INT(RND(1)*10)+1 

£10 LO=INT(RND(1)*10)+1 

££0 PRINT 

£30 PRINT "PRESS (SHIFT) TO PLAY" 

£40 GOSUB 1100 

£50 PRINT CHR*(i47) 

260 PRINT 

£70 PRINT "1=EXTREME SOUTH-" 

£80 PRINT "10=EXTREME NORTH" 

£90 PRINT "1=EXTREME WEST-" 

300 PRINT "10=EXTREME EAST" 

310 PRINT 

3£0 PRINT "YOU NOW HAVE"B" WATER BALLOONS" 

330 PRINT "WHAT'S YOUR GUESS" 

340 PRINT "(BETWEEN 1 AND 10)" 

350 PRINT "FOR THE NORTH/SOUTH" 

360 INPUT "COORDINATE" ;NS 

370 IF NS<i OR NS> 10 THEN 340 

380 PRINT "WHAT'S YOUR GUESS" 

390 INPUT "FOR EAST/WEST" ;EW 

400 IF EWd OR EW>10 THEN 380 

410 IF NS=LA AND Ew=LO THEN 700 

4£0 PRINT 

4£9 REM *** SCROLL SCREEN ♦** 

430 FOR X=l TO £4 

440 PRINT 

450 NEXT.X 

460 PRINT "YOUR FRIEND BELOW SAYS" 

470 PRINT 

479 REM *** COMPARE COORDINATES.*** 

480 IF NS)LA THEN PRINT "TOO FAR NORTH!" 
490 IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
500 IF NS=LA THEN PRINT "NORTH, SOUTH O.K. 



wl 



^T! 



10 IF EW)LO THEN PRINT "TOO FAR EAS1 
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520 IF EW<LO THEN PRINT "TOO FAR WEST!" 
530 IF EW=LO THEN PRINT "EAST, WEST O.K.!" 
540 B=B-1 
550 IF B<1 THEN 1000 

559 REM ♦*♦ RANDOMLY PICK £ OTHER WAYS TO LOSE *** 

560 X=INT(RND<1)»30)+1 
570 IF X=7 THEN 800 
580 IF X=13 THEN 900 
590 PRINT 

600 GOTO 270 

699 REM *** WIN! *«* 

700 PRINT CHR*(147) 

710 PRINT "GOT IT IN"10-B"TRIES ! " 

720 PRINT 

730 PRINT "PRESS < SHI FT) TO PLAY. 

740 GOSUB 1100 

750 RUN 

799 REM *«* HIT MOM OR POLICEMAN ♦*♦ 

800 PRINT 

810 PRINT "YOU HIT YOUR MOM ON" 

820 PRINT "THE SIDEWALK!" 

830 PRINT "YOU LOSE!" 

840 END 

900 PRINT CHR*(147) 

910 PRINT "YOU HIT THE POLICEMAN!" 

920 PRINT "HE CONFISCATES YOUR" 

930 PRINT "HOOP. YOU LOSE!" 

940 END 

999 REM *** LOSE *** 

1000 PRINT 

1010 PRINT "YOU'RE OUT OF WATER" 
1020 PRINT "BALLOONS. YOU LOSE!" 
1030 PRINT "THE COORDINATES WERE:" 
1040 PRINT "NORTH/SOUTH="LA 
1050 PRINT "EAST/WEST="LO 
1060 END 

1099 REM *♦* WAIT ROUTINE ♦** 

1100 WAIT 653, 1 
1110 WAIT 653, 1,1 
1120 RETURN 
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BONUS PROGRAM #7 

THE MONSTER IN THE MARSH 

If you're the type o-f person who enjoys traipsing through 
slushy, -foggy, rocky places, without really getting wet, 
then THE MONSTER IN THE MARSH is for you. To win this 
game you make your way to the end of the marsh „ You do 
this by tossing rocks left, right, or straight ahead, to 
check if it's safe to move. After each time you toss a 
rock, you have the choice of moving, or staying where you 
are. Watch your step! If you move to an unsafe spot, 
you'll sink. But everytime you stay where you ar^ , the 
MONSTER OF THE MARSH gains a step on you. Sooner, or 
later, it's sink or swim in this marsh! 



ADAM 

1 REM *** THE MONSTER OF THE MARSH ADAM **** 

10 s = 15 

20 m = 15 

30 r = 24 

40 HOME 

50 PRINT TAB(5); "THE MONSTER IN THE MARSH" 

60 PRINT 

70 PRINT TAB(4)J "Press any key to begin." 

80 GET n$ 

90 X = INT(RND(1 )*3)+1 

99 REM *** main loop *** 
100 HOME 

110 IF r < 1 THEN f 1 = 1 

120 PRINT "You are "; s; " step(s) from the" 
125 PRINT "marsh's end" 
130 PRINT "you have "; r; " rock(s) in" 
135 PRINT "your pocket" 

140 PRINT "the monster is "; m; " step(s)" 
145 PRINT "behind you." 
150 PRINT 

160 PRINT "Your choices are:" 
170 PRINT 

180 PRINT "1) Take a step" 
190 PRINT "2) Stay where you are" 
200 IP fl = THEN PRINT "3) Toss a rock" 
210 PRINT . , „ 

220 PRINT "Type a number, then (RETURN). 
230 INPUT "What is your choice: "; ch 
240 IF fl = 1 AND ch > 2 THEN' 220 

250 IP ch < 1 OR ch > 3 THEN PRINT "Between 1 and 3, please!": GOTO 220 
260 ON ch GOTO 700, 1000, 300 
300 HOME 

310 PRINT "Type the number of the" 
315 PRINT "direction you want to throw" 
320 PRINT "the rock" 
330 GOSUB 2000 
340 f 1 = 1 
350 HOME : 
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360 IF X <> w THEN PRINT "SPLASH!" 

370 IP X = w THEN PRINT "THUD!" 

380 r = r-1 

390 IF m < 1 THEN 4000 

400 PRINT 

410 PRINT "Press any key to continue." 

420 GET n$ 

430 GOTO 100 

699 REM *** take a step routine *** 

700 HOME 

710 PRINT "Press the number of the" 
720 PRINT "direction you want to step in" 
730 GOSUB 2000 
740 HOME 

750 IF w Ox THEN PRINT "SPLASH! YOU'RE SINKING!" 

760 z = INT(RND(i)*3)+1 

770 IF w <> X AND z = I THEN m = m-1 : PRINT "BUT, you pull yourself 

out ! " 

780 IP w <> X AND z <> 1 THEN PRINT "YOU LOSE!": END 

790 IP w = X THEN s = s-.1. : PRINT "You stepped safely!" 

800 IP m < 1 THEN 4000 

810 IP s < 1 THEN 4000 

820 PRINT 

830 PRINT "Press any key to continue." 

840 f 1 = 

850 GET n$ 

860 GOTO 90 

999 REM *** stay where you are *** 
1000 m = m-1 
1010 IP m < 1 THEN 4000 
1020 f 1 = 
1030 GOTO 100 

1999 REM *** choose direction *** 

2000 PRINT "then press (RETURN)." 
2010 PRINT 

2020 PRINT "1 ) left" 

2030 PRINT "2) right" 

2040 PRINT "3) straight ahead" 

2050 PRINT 

2060 INPUT "Which way: "; w 

2070 IF w < 1 AND w > 3 THEN PRINT "Between 1 and 3 , please!":' GOTO 2060 
2080 RETURN ^» ^ . . 

3999 REM *** LOSE *** 

4000 HOME 

4010 PRINT "The monster eats you and says," • 
4020 PRINT "'Gould use a hit more salt!'" 
4030 PRINT "You lose, for sure.": END 

4999 REM *** WIN *** 

5000 HOME 

5010 FOR t = 1 TO 200 

5020 PRINT " YOU MADE IT ! ! ! " 

5030 NEXT t 
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Apple II and Apple He 

1 REM *** THE MONSTER 

10 S = 15 

20 M = 15 

30 R = 24 

40 HOME 

50 PRINT 

60 PRINT 

70 PRINT 

80 GET N* 

90 X = INT < RND 

99 REM *** MAIN 

100 HOME 
110 IF R ■■ 
120 PRINT 
130 PRINT 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
180 PRINT 
190 PRINT 
200 IF FL 
210 PRINT 
220 PRINT 
230 INPUT 
240 IF FL 
250 IF GH 

220 
ON CH 
HOME 
PRINT 
PRINT 
60SUB 
FL = 1 
HOME 



OF THE MARSH APPLE *** 



TAB( 7) "THE MONSTER IN THE MARSH" 



TAB( 8) "PRESS ANY KEY TO BEGIN. 



(1) * 3) 
LOOP *** 



1 THEN FL = 1 
"YOU ARE "S" STEP(S) FROM THE MARSH'S END" 
"YOU HAVE "R" ROCK(S) IN YOUR POCKET" 
"THE MONSTER IS "M" STEP(S) BEHIND YOU" 

"YOUR CHOICES ARE: " 



"1) 
"2) 

= 



TAKE A STEP" 

STAY WHERE YOU ARE" 

THEN PRINT "3) TOSS A ROCK 



(RETURN) 



"BETWEEN 1 AND 



260 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
699 
700 
710 
720 
730 
740 
750 
760 
770 

780 
790 
800 
810 



"TYPE A NUMBER, THEN PRESS 
"WHAT IS YOUR CHOICE: " ; CH 
= 1 AND CH > 2 THEN 220 
< 1 OR CH > 3 THEN PRINT 

GOTO 700 , 1 000 , 300 



"TYPE THE NUMBER OF THE DIRECTION" 
"YOU WANT TO THROW THE ROCK. " 
2O00 



PLEASE ! 



GOTO 



IF 

IF 

R = 

IF 



X 
X 
R 
M 



> W THEN PRINT "SPLASH! 
THEN PRINT "THUD!" 



< 1 THEN 4000 
PRINT 

PRINT "PRESS ANY KEY TO CONTINUE. " 
GET N*' 
GOTO 100 

REM *** TAKE A STEP ROUTINE *** 
HOME 

"PRESS THE NUMBER OF THE DIRECTION" 

"YOU WANT TO STEP IN," 

2000 



PRINT 

PRINT 

GOSUB 

HOME 

IF W < 
Z = INT 

IF W < 

YOURSELF 

IF W < 

IF W = X 
. IF M < 1 



IF 



1 



X THEN 
RND < 1 ) 
X AND Z 
OUT! " 

X AND Z 
THEN S = 
THEN 4000 
THEN 5000 



PRINT " SPLASH ! YOU 'RE SI NK I N6 ! " 

* 3) + 1 

= 1 THEN M = M - Is PRINT "BUT, YOU PULL 



1 THEN PRINT "YOU LOSE!": END 
s PRINT "YOU STEPPED SAFELY!" 
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B20 


PRINT 


830 


PRINT "PRESS ANY KEY TO CONTINUE. " 


840 


FL = 


850 


BET N# 


860 


60T0 90 


999 


REM *** STAY WHERE YOU ARE **# 



1000 M = M - 1 

1010 IF M < 1 THEN 4000 

1020 FL = 

1030 GOTO 100 

1999 REM *** CHOOSE DIRECTION »** 

2000 PRINT "THEN PRESS (RETURN)." 
2010 PRINT 

2020 PRINT "D LEFT" 

2030 PRINT "2) RIGHT" 

2040 PRINT "3) STRAIGHT AHEAD" 

2050 PRINT 

2060 INPUT "WHICH WAY: ";W 

2070 IF W < 1 OR W > 3 THEN PRINT "BETWEEN 1 AND 3, PLEASE!": GOTO 
2060 

2080 RETURN 

3999 REM *** LOSE *** 

4000 HOME 

4010 PRINT "THE MONSTER EATS YOU AND SAYS," 
4020 ■ PRINT "'COULD USE A BIT MORE SALT!'" 
4030 PRINT "YOU LOSE, FOR SURE.": END 

4999 REM **# WIN *** 

5000 HOME 

5010 FOR T = 1 TO 200 

5020 PRINT " YOU MADE IT ! ! ! " 

5030 NEXT T 

Atari 

1 REM *■»■»■ THE MONSTER IN THE MARSH ATARI *** 

10 DIM R*(l) 

20 S=15:M=^15;R=:.-:24 

30 PRINT CHR$(125) 

40 POSITION 7,0 

50 PRINT "THE MONSTER IN THE MARSH!" 

60 POSITION 7,3 

70 PRINT "F'RESS (RETURN) TO BEGIN"; 

80 GOSUB 3000 

90 X=INT(RND(1)*3)+1 

99 REM *** MAIN LOOP *** 

100 PRINT CHRf(125) 
110 IF R<1 THEN FL--^1 

120 PRINT "YOU'RE ";Sg" STEP(S) FROM THE MARSH EDGE" 

130 PRINT "YGU HAVE "-Rq" RaCK(S) IN YOUR POCKET" 

140 PRINT "THE MONSTER IS "5M1;" STEP(G) BEHIND YOU" 

150 PRINT 

160 PRINT "YOUR CHOICES ARE:" 

170 PRINT 

leO PRINT "1) TAKE A STEP" 

190 PRINT "2) STAY WHERE YOU AF<E" 

200 IF FLn=:0 THEN PRINT "3) TOSS A ROCK" 

210 PRINT 

220 PRINT "ENTER YOUR CHOICE, THEN PRESS (RETURN)" 

230 INPUT CH 
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240 

250 

260 

299 

300 
3 1 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
699 
700 
710 
720 
730 
740 
750 
760 
770 
780 

800 

810 

820 

830 

840 

850 

860 

999 

1 000 

1010 

1020 

1 030 

1999 

2000 

20 1 

2020 

2030 

2040 

2050 

2060 

2065 

2070 

20£!0 

2999 

3000 

3020 

3999 

4000 

4010 

4020 



PRINT 
PRINT 

eosuB 



NUMBER OF THE DIRECTION" 
TO TOSS THE ROCK," 



IF FL=1 AND CH>2 THEN SOTO 220 

IF CH<1 OR CH>3 THEN PRINT "BETWEEN 

ON CH GOTO 700,1000,300 

REM *** THROW A ROCK ROUTINE *** 

PRINT CHRf(i25) 

■TYPE THE 

'YOU WANT 

2000 
FL=1 

PRINT CHR-1:(125) 
IF XOW THEN PRINT "SPLASH!" 
IF X=W THEN PRINT "THUD!" 
R=R - 1 

IF M<1 THEN 4000 
PRINT 

PRINT "PRESS (RETURN) TO CONTINUE. " 
GOSUB 3000 
GOTO 1 00 

REM **•» ■ TAKE A STEP ROUTINE *** 
PRINT CHRf(125) 

"PRESS THE NUMBER OF THE DIRECTION 



1 AND 3 , PLEASE ! " s GOTO 220 



PRINT 
PRINT 
GOSUB 
PRINT 
IF W< 



"YOU WANT TO STEP IN," 
2000 

CHRt-(125) 
>X THEN PRINT "SPLASH! YOU'RE SINKING!" 



Z=INT(RND(1)*3)+1 
IF WOX AND 
IF WOX AND 
IF W=X THEN 
IF M<1 THEN 
IF S<1 THEN 
PRINT 

PRINT " PRE 
FL=0 
GOSUB 
GOTO 
REM 
H=M 



Z=l THEN M=M-~l!!F'RINT 
ZOl THEN PRINT "YOU 

4000 
5000 



"BUT, YOU PULL 
LOSE! ";END 

SAFELY ! " 



YOURSELF OUT ! " 



(RETURN) TO CONTINUE. 



3o00 



90 



!TA'' 



YOU 



*** 



1 



1 THEN 



lOOO 



!)0 



" 1 ) 

"2). 
"3) 



HE 



LEFT" 

RIGHT" 

STRAIGHT AHEAD' 



FL--^=0 

GOTO 

REM *** CHOOSE DIRECT 

PRINT "THEN 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IF W<1 

RETURN 

REM *^- 

INPUT R* 

RETURN 

REM *** 



;0N **■* 
(RETURN.) 



<EY 



WHICH WAY" 



W 



OR W>3 THEN PRINT "BETWEEN 



*•» INPUT ROUTINE *** 



AND 



PLEASE ! " s GOTO 2O60 



L.OSE *** 



PRINT CHR:$(125) 

PRINT "THE MONSTER EATS 

PRINT "'COULD USE A BIT 



YOU AND SAYS, 
MORE SALT ! ' " 
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4030 PRINT "YOU LOSE, FOR SURE. "5 END 

4999 REM ■»** WIN *** 

5000 PRINT CHR#<125) 
5010 FOR T=l TO 200 

5020 PRINT " YOU MADE IT i!!"; 
5030 NEXT T 

Commodore 64 

1 REM ♦*♦ THE MONSTER IN THE MARSH 64 *** 

10 S=15 

£0 M=15 

30 R=E4 

40 PRINT CHR*(147) 

50 PRINT TfiB(7) "THE MONSTER IN THE MARSH!" 

60 PRINT 

70 PRINT TflB(a) "PRESS (SHIFT) TO BEGIN." 

80 60SUB 3000 

90 X=INT(RND<1)*3)+1 

99 REM **♦ MAIN LOOP ♦** 

100 PRINT CHR*(147) 
110 IF R<1 THEN FL=1 

120 PRINT "YOU ARE "S "STEP (S) FROM THE MARSH'S END" 

130 PRINT "YOU HAVE" R" ROCK (S) IN YOUR POCKET" 

140 PJRINT "THE MONSTER IS"M"STEP(S) BEHIND YOU" 

150 PRINT 

160 PRINT "YOUR CHOICES AREs" 

170 PRINT 

180 PRINT "1) TAKE A STEP" 

190 PRINT "£) STAY WHERE YOU ARE" 

£00 IF FL=0 THEN PRINT "3) TOSS A ROCK" 

£10 PRINT 

££0 PRINT "TYPE A NUMBER, THEN PRESS (RETURN)." 

£30 INPUT "WHAT IS YOUR CHOICE" ;CH 

£40 IF FL=1 AND CH> £ THEN ££0 

£50 IF CH<1 OR CH>3 THEN PRINT "BETWEEN 1 AND 3, PLEASE!"! GOTO ££3 

£60 ON CH GOTO 700, 1000, 300 

£99 REM *♦* TOSS A ROCK ♦** 

300 PRINT CHR*(147) 

310 PRINT "TYPE THE NUMBER OF THE DIRECTION" 

3£0 PRINT "YOU WANT TO THROW THE ROCK, " 

330 GOSUB £000 

340 FL=i 

350 PRINT CHR*(147) 

360 IF XOW THEN PRINT "SPLASH!" 

370 IF X=W THEN PRINT "THUD!" 

380 R=R-1 

390 IF M<1 THEN 4000 

400 PRINT 

410 PRINT "PRESS (SHIFT) TO CONTINUE." 

420 GOSUB 3000 

430 GOTO 100 

699 REM *** TAKE A STEP ROUTINE *** 

700 PRINT CHR*(147) 

710 PRINT "PRESS THE NUMBER OF THE DIRECTION" 

7£0 PRINT "YOU WANT TO STEP IN, " 

730 GOSUB £000 

740 PRINT CHR*(147) 

750 IF WOX THEN PRINT "SPLASH! YOU'RE SINKING!" 

760 Z=INT(RND(1)*3)+1 

100 
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770 IF WOX AND Z=l THEN M=M-ls PRINT "BUT, YOU PULL YOURSELF OUT!" 

780 IF WOX AND ZOl THEN PRINT "YOU LOSE!":END 

790 IF W=X THEN S=S-ls PRINT "YOU STEPPED SfiFELY!" 

800 IF M<1 THEN 4000 

810 IF S<1 THEN 5000 

820 PRINT 

830 PRINT "PRESS (SHIFT) TO CONTINUE." 

840 FL=0 

850 GOSUB 3000 

860 GOTO 90 

999 REM *♦♦ STAY WHERE YOU ARE **♦ 

1000 M=M-i 

1010 IF M<1 THEN 4000 

1020 FL=0 

1030 GOTO 100 

1999 REM ♦*♦ CHOOSE DIRECTION ♦** 

£000 PRINT "THEN PRESS (RETURN)." 

2010 PRINT 

2020 PRINT "D LEFT" 

£030 PRINT "2) RIGHT" 

£040 PRINT "3) STRAIGHT AHEAD" 

2050 PRINT 

2060 INPUT "WHICH WAY";W 

2070 IF W<1 OR W>3 THEN PRINT "BETWEEN 1 

2080 RETURN 

2999 REM *♦♦ WAIT ROUTINE ♦♦♦ 

3000 WAIT 653, 1 
3010 WAIT 653, 1, 1 
3020 RETURN 

3999 REM *** LOSE *♦* 

4000 PRINT CHR$(147) 

4010 PRINT "THE MONSTER EATS YOU AND SAYS, " 
4020 PRINT "'COULD USE A BIT MORE SALT!'" 
4030 PRINT "YOU LOSE, FOR SURE. ":END 

4999 REM **♦ WIN **♦ 

5000 PRINT CHR*(147) 
5010 FOR T=i TO £00 
5020 PRINT " YOU MADE IT !i! "s 
5030 NEXT T 



AND 3, PLEASE ! " : GOTO 2060 



IBM PC 

1 REM *** liOMESTGR 

10 S---15 

20 M=15 

30 R:=24 

40 CLS 

50 PRINT 

60 PRINT 

70 PRINT 

80 PRINT 



IH T^•^E HARSH **# 



TAB (9) 
TAB (8) 



"THE MONSTER" 
"IN THE MARSH! " 



TAB (4) "PF;:ESS any HT£Y TO BE6IN' 



90 Ai--==INKEY* 

iOO IF A*=-"" THEN 90 

109 REM ■!<*•.* MAIN LOOP *** 

110 X^=^RND(3) 
120 CLS 

130 IF R<1 THEN Fl.~l 
1 4(:.i PR I NT " YOU ARE " S " STEP ( S ) " 
ISO PRINT "FROM THE MARSH'S END' 
160 PRINI 
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170 PRINT "YOU HAVE"R"ROCK(S) " 

180 PRINT "IN YOUR POCKET" 

190 PRINT 

200 PRINT "THE MONSTER IS"M 

210 PRINT "STEP<S) BEHIND YOU" 

220 PRINT 

230 PRINT "PRESS ANY KEY TO CONTINUE" 

240 A:*:=INKEY:*^ 

250 IP A*=-"" THEN 240 

260 CLS 

270 PRINT "VOUR CHOICES AREs " 

280 PRINT 

290 PRINT "D TAKE A STEP" 

300 PRINT "2) STAY WHERE YOU ARE" 

310 IF FL~=0 THEN PRINT "3) TOSS A ROCK" 

320 PRINT 

330 PRINT "TYPE A NUNBER" . 

340 PRINT "THEN PRESS (ENTER)" 

350 PRINT "WHAT IS YOUR CHOICE" 

360 INPUT CH / 

370 IF FL-1 AND CH>2 THEN 330 

380 IF CH<1 OR CH>3 THEN 260 

390 ON CH GOTO 700,1000,400 

399 REM ^^^ THROW A ROCK **•* 

400 CLS 

410 PRINT "TYPE THE NUNBER" 

420 PRINT "OF THE DIRECTION" 

430 PRINT "YOU WANT TO" 

440 PRINT "THROW THE ROCK" 

450 PRINT 

460 GOSUB 2000 

4 70 FL::-::1 

480 CL.S 

490 IF XOW CHEN PRINT "SPLASH!" 

500 IF X:=:W THEN PRINT "THUD'" 

510 R=^R-1 

520 IF N<1 THEN 4000 

530 PRINT 

540 FRIHT "PRESS ANY KEY TO CONTINUE" 

550 A:$:=^INKEY-$: 

560 IF A*:=:"" THEN 550 

570 GOTO 120 

699 REM ^-^J*- TAKE A SfEF' ^^^^^^^ 

700 CLEi> 

710 PRINT "PRESS THE NUMBER" 

720 PRINT "OF THE DIRECTION" 

730 PRINT "VOU WANT TO STEP IN h"i! PRINT 

740 GOSUB 2000 

750 CLS3Z=::RND(4) 

760 If W< >X THEN FRLHT "SPLASH YOU'RE SINKING!" 

780 IF WOX AND I-l THEN M'^^^M In PRINT "BUT. YOU PULL YOURSELF QiJT 

790 !:F WOX AND Z::>1 THEH PRIHT "YOU LOSE !" s END 

800 IF W:=-X THEN S^^^S In PRINT "YOU STEPPED SAFELY'" 

810 iF h<l THEN 4U00 

820 \.F S<1 THEN. 5000 

830 PRINT 

840 FL=0 

850 FRIHI "PRESS fM\ KEY TO CONTINUE" 

860 A:iii:^lNKEY-^: 
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IHEM 860 



WHERE you ARE *** 



"HE 



870 IF A*^ 
880 GOTO 110 

999 REM **•«• SfAV 

1000 M=M~-1 
IF M<1 THEN 4000 
FL=^0 

GOTO 110 
PRINT "THEN 
PRINT- 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT "WHICH 
INPUT W 

IF W<1 OR W>3 THEN PRINT "1 
RETURN 

REN ^-^'^ TOO BAD! 
CL8 

PRINT "THE NONSTER 
PRINT " COULD USE 



1010 
1020 
1 030 
2000 
20 1 
2020 
2030 
2040^ 
2050 
2060 
2070 
2080 
2090 
2 1 00 
3999 
4000 
4010 
4020 
4030 
4999 

Sooo 

50 1 
5020 
5030 
5040 



'1 ) 
'2) 
'3) 



(ENTER) 

LEFT" 

f^:IOHT" 

STRAIGHT 



mv- 



KEY 



AHEAD •' 



OR 



PLEASE ! " : GOTO 2070 



*** 



EATS 
!l BIT 



YOU AND 
MORE SAL 



SAYS , 
.Ti" 



PRINT "YOU LOSE, FOR SURE. 

F;EM *** YOU MADE IT! *** 

CLS 

FOR T==l TO 20.0 

PRINT " YOU MADE IT! ! ! " 

NEXT T 

END 



END 



TI-99/4A 

1 REM «•** THE MONSTER IN THE MARSH **•>!• 

10 S:r--15 

20 M=15 

30 R---=24 

40 CALL CLEAR 

50 PRINT TAB (7);; "THE MONSTER" 



60 PRINT 
70 PRINT 
80 PRINT 
90 INPUT 



TAB (7) 5 "IN THE MARSH" 



"PRESS (ENTER) TO BEGIN"; 
R$ 

99 REM *** MAIN LOOP *s* 

1 00 X ~ I NT ( 3*RND ) + 1 
iiO CALL CLEAR 

120 IF R<1 THEN 130 ELSE 140 
130 FL--=1 

"STEP(S)" 

EDGE" 



140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
180 PRINT 
190 PRINT 
200 PRINT 
210 PRINT 
220 PRINT 
230 PRINT 
240 PRINT 
250 PRINT 
260 PRINT 



" YOU HAVE " ? R ; " ROC^:: ( 5 ) " 
"IN YOUR POCKET" 

"THE MONSTER IS";M 
"STEP<S) BEHIND YOU" 



"YOUR CHOICES ARE: " 

"D TAKE A STEP" 

•■■■2) STAY WHERE YOU ARE" 
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270 


IF FL=0 THEN 280 ELSE 290 


280 


PRINT "3) TOSS A ROCK" 


290 


PRINT 


300 


PRINT "TYPE A NUMBER" 


310 


PRINT "THEN PRESS (ENTER) " 


320 


PRINT "WHAT IS YOUR CHOICE"; 


330 


INPUT CH 


340 


IF FL=1 THEN 350 ELSE 360 


350 


IF CH>2 THEN 300 ELSE 360 


360 


IF CH<1 THEN 380 ELSE 370 


370 


IF CH>3 THEN 380 ELSE 410 


380 


PRINT "1,2 OR 3 PLEASE!" 


390 


PRINT 


400 


GOTO 230 


410 


ON CH GOTO 620,880,420 


419 


REM *■»* TOSS A ROCK *** 


420 


CALL CLEAR 


430 


PRINT "TYPE THE NUMBER" 


440 


PRINT "OF THE DIRECTION" 


450 


PRINT "YOU WANT TO" 


460 


PRINT "TOSS THE ROCK," 


470 


PRINT 


480 


GQSUB 920 ■ 


490 


FL=1 


500 


CALL CLEAR 


510 


IF XOW THEN 520 ELSE 530 


520 


PRINT "SPLASH:" 


530 


IF X=W THEN 540 ELSE 550 


540 


PRINT "THUD!" 


550 


R-R-1 


560 


IF M<1. THEN 1070 


570 


PRINT 


580 


PRINT "PRESS (ENTER) " 


590 


PRINT "TO CONTINUE." 


600 


INPUT R* 


610 


GOTO 110 


619 


REM *-**-TAKE A STEP *■»•«• 


620 


CALL CLEAR 


630 


PRINT "PRESS THE NUMBER" 


640 


PRINT "OF THE DIRECTION" 


650 


PRINT "YOU WANT TO STEP" 


660 


GOSUB 920 


670 


CALL CLEAR 


680 


IF WOX THEN 690 ELSE 770 


690 


Z--=INT(3*RND)+i 


700 


F'RINT "SPLASH YOU'RE SINKING!" 


7 1 


IF Z-1 THEN 720 ELSE 740 


720 


PRINT "BUT, YOU PULL YOURSELF OU 


729 


REM *** STAY WHERE YOU ARE •»** 


730 


M=M-1 


740 


IF 201 THEN 750 ELSE 770 


750 


PRINT "YOU LOSE! " 


760 


END 


770 


IF W=X THEN 780 ELSE 800 


780 


PRINT "YOU STEPPED SAFELY" 


790 


S=S- 1 


800 


IF M<1 THEN 1070 


810 


IF 3<i THEN 1130 


820 


PRINT 
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830 PRINT "PRESS (ENTER) " 

840 PRINT "TO CONTINUE." 

850 INPUT R* 

860 FL-=0 

870 GOTO 100 

880 M=--H-l 

890 IF M<1 THEN 1070 

900 i"L=0 

910 GOTO 100 

919 REM *** DIRECTION LOOP -i?** 

920 PRINT "THEN PRESS" 

930 PRINT "THE (ENTER) KEY. " 

940 PRINT 

950 PR' I NT "D LEFT" 

960 PRINT "2) RIGHT" 

970 PRINT "3) STRAIGHT AHEAD" 

980 PRINT 

990 PRINT "WHICH WAY", 

1000 INPUT W 

1010 IF W<1 THEN 1040 ELSE 1060 

1020. PRINT "1,2 OR 3 PLE:ASE ! " 

1030 IF Uj>3 THEN 1040 ELSE 1060 

■i.Ci&r-i PPTKJT '-1 o np -r P! f 



■ i\ 






1050 GOTO 1000 

1060 RETURN 

1069 REN *** YOU LOSE *** 

1070 CALL CLEAR 

iOSO PRINT "THE MONSTER EATS" 

1090 PRINT "YOU AND SAYS," 

1100 PRINT "'COULD USE A EilT MORE SALT'" 

1110 f-'RINT "YOU LOSE, FOR SURE." 

1120 END 

1130 CALL CLEAR 

1140 FOR T==l TO 100 

1150 PRINT "YOU MADE IT:!!" 

1160 PRINT 

1170 NEXT T 

1180 END 

Timex 1000 w/t6K RAM Pack and Timex 1500 

1 REM *♦** MONStER IN THE MARSH TIMEX ♦*** 

10 LET S=15 

20 LET M=15 

30 LET R=24 

40 CLS 

50 PRINT TAB (4) ; "THE MONSTER IN THE MARSH" 

60 PRINT 

70 PRINT TAB (5) ; "PRESS (ENTER) TO BEGIN." 

80 INPUT R* 

90 RAND 

100 LET F=0 

110 LET C=0 

120 LET W=0 

130 LET X=INT (RND*3)+1 

139 REM *»* MAIN LOOP **# 

140 CLS 

150 IF R<1 THEN LET F=l 

160 PRINT "YOU ARE "5S5" STEP(S) FROM THE" 

170 PRINT "END OF THE MARSH. YOU HAVE "SR 
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180 PRINT "ROCK(S) IN YOUR POCKET." 

190 PRINT "THE MONSTER IS " ;M; " STEP (S> " 

200 PRINT "BEHIND YOU. " 

210 PRINT 

220 PRINT "YOUR CHOICES ARE:" 

230 PRINT 

240 PRINT "1) TAKE A STEP" 

250 PRINT "2) STAY WHERE YOU ARE" 

260 IF F=0 THEN PRINT "3) TOSS A ROCK" 

270 PRINT 

280 PRINT "TYPE A NUMBER, " 

290 PRINT "THEN PRESS < ENTER >. " 

300 PRINT "WHAT IS YOUR CHOICE?" 

310 INPUT C 

320 IF F=l AND C>2 THEN 60T0 280 

330 IF C<1 OR C>3 THEN PRINT "1,2 OR 5 PLEASE." 

340 IF C<1 OR C>3 THEN GOTO 280 

350 IF C=l THEN GOTO 700 

360 IF C=2 THEN GOTO 1000 

370 IF C=3 THEN GOTO 400 

400 CLS 

410 PRINT "TYPE THE NUMBER OF THE DIRECTION" 

420 PRINT "YOU WANT TO THROW THE ROCK." 

430 GOSUB 2000 

440 LET F=l 

450 CLS 

460 IF XOW THEN PRINT "SPLASH" 

470 IF X=W THEN PRINT "THUD" 

480 LET R=R-1 

490 IF M<1 THEN GOTO 4000 

500 PRINT 

510 PRINT "PRESS < ENTER) TO CONTINUE." 

520 INPUT R* 

530 GOTO 140 

699 REM *♦» TAKE A STEP ♦*» 

700 CLS 

710 PRINT "TYPE THE NUMBER OF THE DIRECTION" 

720 PRINT "YOU WANT TO STEP IN. " 

730 GOSUB 2000 

740 CLS 

750 IF WOX THEN PRINT "SPLASH" 

760 LET Z=0 

770 LET Z=INT (RND*3)+1 

780 IF WOX AND 1-1 THEN LET M=M-1 

790 IF WOX AND Z=l THEN PRINT "BUT YOU PULLED YOURSELF OUT. 

800 IF WOX AND ZOl THEN PRINT "YOU LOSE." 

810 IF WOX AND ZOl THEN GOTO 5040 

820 IF W=X THEN LET S=S-1 

830 IF W=X THEN PRINT "YOU STEPED SAFELY." 

840 IF M<1 THEN GOTO 4000 

850 IF S<1 THEN GOTO 5000 

860 PRINT 

870 PRINT "PRESS (ENTER) TO CONTINUE." 

880 LET F=0 

890 INPUT R* 

900 GOTO 130 

999 REM *** THROW A ROCK *** 
1000 LET M=M-1 
1010 IF M<1 THEN GOTO 4000 
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1020 
1030 
1999 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
3999 
4000 
4010 
4020 
4030 
4040 
4999 
5000 
5010 
5020 
5030 
5040 



"1) 

HON 



LEFT" 

RIGHT" 

STRAIGHT' 



LET F=0 

GOTO 140 

REM «** CHOOSE DIRECTION *** 

PRINT "THEN PRESS THE (ENTER) 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "WHICH WAY?" 

INPUT W 

IF W<1 OR W>3 THEN 

IF W<1 OR W>3 THEN 

RETURN 

REM **♦ LOSE *** 

CLS 

PRINT "THE MONSTER 

PRINT "COULD USE A 



KEY. " 



PRINT "1,; 
GOTO 2060 



OR 



PLEASE. 



EATS YOU AND SAYS, 
BIT MORE SALT. " 



PRINT "YOU LOSE, FOR SURE. 

GOTO 5040 

REM *** WIN **» 

CLS 

FDR T=l TO 46 

PRINT " YOU MADE IT"; 

NEXT T 

REM *♦* END #** 



TRS-80 Color Computer 

1 REM ♦*♦ THE MONSTER 

10 S=15 

£iZl M=15 

30 R=£4 

40 CLS 

50 PRINT TftBO) 

60 

70 

80 PRINT TflB<4) 

90 fl*=INKEY* 

IF ft*="" THEN GOTO 90 

REM **♦ MAIN LOOP ♦♦* 

X=RND(3) 

CLS 

IF R<1 THEN FL=i 

PRINT "YOU ARE"S"STEP(S)" 

"FROM THE MftRSH'S END 



IN THE MfiRSH TRS-80 COLOR *** 



PRINT TAB (8) 
PRINT 



"THE MONSTER" 
"IN THE MfiRSHi " 

"PRESS ANY KEY TO BEGIN' 



100 

109 
110 
1£0 
130 
140 
150 
160 
170 
180 
190 

£00 

£10 



"YOU HflVE"R"ROCK(S)" 
"IN YOUR POCKET" 

"THE MONSTER IS"M 
"STEP<S) BEHIND YOU" 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 
££0 PRINT 

£30 PRINT "PRESS ANY KEY TO 
£40 A*=INKEY* 

£50 IF A*="" THEN GOTO £40 
£60 CLS 

£70 PRINT "YOUR CHOICES ARE 
£80 PRINT 
£90 PRINT "1) TAKE A STEP" 



:ONTINUE 
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300 
310 
380 
330 
340 
350 
360 
370 
380 
390 
399 

400 

410 
420 
430 
440 
450 
460 
470 
480 
490 

500 

510 
520 
530 
540 
550 
560 
570 
699 

700 

710 
720 
730 
740 
750 
760 
780 
790 

800 

610 
820 
830 
840 
850 
860 
870 
880 
999 

1000 
1010 
1020 
1030 
2000 
2010 

2020 
2030 
2040 
2050 
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PRINT "£) STAY WHERE YOU ORE" 

IF FL=0 THEN PRINT "3) TOSS ft ROCK" 

PRINT 

PRINT "TYPE ft NUMBER" 

PRINT "THEN PRESS (ENTER)" 

PRINT "WHAT IS YOUR CHOICE"; 

INPUT CH 

IF FL=1 fiND CH>2 THEN 330 



IF CH<1 OR CH>3 THEN GOTO £60 

ON CH GOTO 700, 1000, 400 

REM ♦♦* CHUCK THE ROCK *** 

CLS 

PRINT "TYPE THE NUMBER" 

PRINT "OF THE DIRECTION" 

PRINT "YOU WANT TO" 

PRINT "THROW THE ROCK" 

PRINT 

GOSUB 2000 

FL=1 

CLS 

IF XOW THEN PRINT "SPLASH!" 

IF X=W THEN PRINT "THUD" 

IF M<1 THEN 4000 

PRINT 

PRINT "PRESS ANY KEY TO CONTINUE" 

A*=INKEY* 

IF A*="" THEN 550 

GOTO 120 

REM *** TAKE A STEP ROUTINE *** 

CLS 

PRINT "PRESS THE NUMBER" 

PRINT "OF THE DIRECTION" 

PRINT "YOU WANT TO STEP IN, ": PRINT 

GOSUB 2000 

CLS!Z=RND(4) 

IF WOX THEN PRINT "SPLASH YOU'RE SINKING!" 



IF 
IF 
IF 
IF 
IF 



WOX AND Z=l THEN M=M-1: PRINT "BUT, YOU PULL YOURSELF OUT!" 
WOX AND ZOi THEN PRINT "YOU uOSE!"sEND 
W=X THEN S=S-1: PRINT "YOU STEPPED SAFELY!" 
M<1 THEN 4000 
S<1 THEN 5000 



PRINT 

FL=0 

PRINT "PRESS ANY KEY TO CONTINUE" 

A*=INKEY* 

IF A*="" THEN 860 

GOTO 110 

REM *«* STAY WHERE YOU ARE #** 

M=M-1 

IF M<1 THEN 4000 

FL=0 

GOTO 110 

PRINT "THEN 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



■THE 



PRESS" 
(EMTER) 



4. ; 
"2) 
"3) 



LEFT" 

RIGHT" 

STRAIGHT 



KEY. 



AHEAD' 
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2060 PRINT 

2070 PRINT "WHICH WfiY"; 

2080 INPUT U 

£090 IF W<1 OR W>3 THEN PRINT "1,2 OR 3 PLEASE !": GOTO 2070 

2100 RETURN 

3999 REM *** SORRY CHARLIE *** 

4000 CLS 

4010 PRINT "THE MONSTER EATS YOU AND SAYS, " 
4020 PRINT "'GOULD USE A BIT MORE SALT!" 
4030 PRINT "YOU LOSE, FOR SURE. " :END 

4999 REM *** YOU'RE IN LUCK *** 

5000 CLS 

5010 FOR T=l TO 200 

5020 PRINT" YOU MADE IT!!! "; 

5030 NEXT T 

5040 END 

TRS-80 Model III and Model 4 

1 REM **» THE MONSTER IN THE MARSH TRS-80 MODELS 3 AND 4 «*♦ 

10 S=15 

20 M=15 

30 R=24 

40 CLS 

50 PRINT TAB (32) "THE MONSTER" 

60 PRINT TAB (31) "IN THE MARSH!" 

70 PRINT 

80 PRINT TAB (26) "PRESS ANY KEY TO BE6IN" 

90 A*=INKEY* 

100 IF A*="" THEN GOTO 90 

109 REM *** MAIN LOOP *** 

110 X=RND(3) 
120 CLS 

130 IF R<1 THEN FL=1 

140 PRINT "YOU ARE"S"STEP(S)" 

150 PRINT "FROM THE MARSH'S END" 

160 PRINT 

170 PRINT "YOU HAVE"R"ROCK(S)" 

180 PRINT "IN YOUR POCKET" 

190 PRINT 

200 PRINT "THE MONSTER IS"M 

210 PRINT "STEP(S) BEHIND YOU" 

220 PRINT 

230 PRINT "PRESS ANY KEY TO CONTINUE" 

240 A*=INKEY* 

250 IF A«="" THEN GOTO 240 

260 CLS 

270 PRINT "YOUR CHOICES ARE: " 

280 PRINT 

290 PRINT "D TAKE A STEP" 

300 PRINT "2) STAY WHERE YOU ARE" 

310 IF FL=0 THEN PRINT "3) TOSS A ROCK" 

320 PRINT . 

330 PRINT "TYPE A NUMBER" 

340 PRINT "THEN PRESS (ENTER) 

350 PRINT "WHAT IS YOUR CHOICE" 

360 INPUT CH 

370 IF FL=1 AND CH>2 THEN 330 

380 IF CH<1 OR CH>3 THEN 260 

390 ON CH GOTO 580,770,400 
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400 CLS 

410 PRINT "TYPE THE NUMBER" 

420 PRINT "OF THE DIRECTION" 

430 PRINT "YOU WANT TO" 

440 PRINT "THROW THE ROCK" 

450 PRINT 

460 60SUB 810 

470 FL=1 

480 CLS 

490 IF XOW THEN PRINT "SPLASH!" 

500 IF X=W THEN PRINT "THUD" 

510 R=R-1 

520 IF M<1 THEN 920 

530 PRINT 

540 PRINT "PRESS ANY KEY TO CONTINUE" 

550 A*=INKEY* 

560 IF A*="" THEN 550 ■ 

570 GOTO 120 

579 REM *#» TAKE A STEP ROUTINE ♦♦♦ 

580 CLS 

590 PRINT "PRESS THE NUMBER" 

600 PRINT "OF THE DIRECTION" 

610 PRINT "YOU WANT TO STEP IN,": PRINT 

620 GOSUB 810 

630 CLS 

640 Z=RND(4) 

650 IF WOX THEN PRINT "SPLASH YOU'RE SINKING!" 

660 IF WOX AND Z=l THEN M=M-l: PRINT "BUT, YOU PULL YOURSELF OUT! 

670 IF WOX AND ZOl THEN PRINT "YOU LOSE !": END 

680 IF W=X THEN S=S-1: PRINT "YOU STEPPED SAFELY!" 

690 IF M<1 THEN 920 

700 IF S<1 THEN 960 

710 PRINT 

720 FL=0 

730 PRINT "PRESS ANY KEY TO CONTINUE" 

740 A*=INKEY* 

750 IF A*="" THEN 740 

760 GOTO 110 

769 REM «** STAY WHERE YOU ARE ♦»♦ 

770 M=M-1 

780 IF M<1 THEN 920 

790 FL=0 

800 GOTO 110 

810 PRINT "THEN PRESS" 

820 PRINT "THE (ENTER) KEY." 

830 PRINT 

840 PRINT "1) LEFT" 

850 PRINT "2) RIGHT" 

860 PRINT "3) STRAIGHT AHEAD" 

870 PRINT 

880 PRINT "WHICH WAY" 

890 INPUT W 

900 IF W<1 OR W>3 THEN PRINT "1,2 OR 3 PLEASE !": GOTO 880 

910 RETURN 

919 REM *** SORRY CHARLIE **♦ 

920 CLS 

930 PRINT "THE MONSTER EATS YOU AND SAYS," 
940 PRINT "'COULD USE A BIT MORE SALT!" 

950 PRINT "YOU LOSE, FOR SURE.": END 

1 . I 
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959 REM «** YOU'RE IN LUCK ♦«♦ 

960 CLS 

970 FOR T=l TO 200 

980 PRINT " YOU MADE IT!!! "5 

990 NEXT T 

1000 END 

VIC-20 

i REM ♦♦* THE MONSTER IN THE MARSH VIC-20 *♦« 

10 S=15 

30 M=15 

30 R=£4 

40 PRINT CHR*(147) 

50 PRINT TAB (5) "THE MONSTER" 

60 PRINT TflB<4)"IN THE MARSH" 

70 PRINT 

80 PRINT "PRESS (SHIFT) TO BEGIN" 

90 GOSUB 3000 

99 REM *♦* MAIN LOOP *** 

100 X=INT(RND<1)*3)+1 
il0 PRINT CHR*(147) 
1£0 IF R<1 THEN FL=1 

130 PRINT "YOU ARE"S"STEP(S)" 

140 PRINT "FROM THE MARSH'S END" 

150 PRINT 

160 PRINT "YOU HAVE" R" ROCK <S)" 

170 PRINT "IN YOUR POCKET" 

180 PRINT 

190 PRINT "THE MONSTER IS"M 

£00 PRINT "STEP(S) BEHIND YOU" 

210 PRINT 

££0 PRINT "YOUR CHOICES ARE:" 

£30 PRINT 

£40 PRINT "1) TAKE A STEP" 

£50 PRINT "£) STAY WHERE YOU ARE" 

£60 IF FL=0 THEN PR INT "3) TOSS A ROCK" 

£70 PRINT 

£80 PRINT "TYPE A NUMBER" 

£90 PRINT "THEN PRESS (RETURN)" 

300 INPUT "WHAT IS YOUR CHOICE" ;CH 

310 IF FL=1 AND CH) £ THEN £80 

3£0 IF CH(1 OR CH>3 THEN PRINT s GOTO ££0 

330 ON CH GOTO 700,1000,340 

339 REM ♦♦* TOSS A ROCK ROUTINE *** 

340 PRINT CHR*(147) 

350 PRINT "TYPE THE NUMBER" 

360 PRINT "OF THE DIRECTION" 

370 PRINT "YOU WANT TO" 

380 PRINT "TOSS THE ROCK, " 

390 PRINT 

400 GOSUB £000 

410 FL=1 

4£0 PRINT CHR*(147) 

430 IF XOW THEN PRINT "SPLASH!" 

440 IF X=W THEN PRINT "THUD!" 

450 R=R-1 

460 IF M<1 THEN 4000 

470 PRINT 

480 PRINT "PRESS (SHIFT)" 
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490 

500 

510 
693 

700 

710 
720 
730 
740 
750 
7&0 
780 
790 

800 

810 
820 
830 
840 
850 
860 
870 
890 
999 

1000 
1010 
1020 
1030 

1999 

2000 

2010 
2020 
£030 
2040 
£050 
£080 
£070 
£080 
£090 

2100 

£999 

3000 

3010 
3020 
3999 

4000 
4010 

4020 
4030 
4999 

5000 
5010 

5020 
5030 



PRINT "TO CONTINUE. " 

GOSUB 3000 

GOTO 110 

REM *♦* TAKE ft STEP ROUTINE »** 

PRINT CHR*(147) 

PRINT "PRESS THE NUMBER" 

PRINT "OF THE DIRECTION" 

PRINT "YOU WANT TO STEP IN, " 

GOSUB 

PRINT 

IF 

IF 

IF 

IF 



wox 

WOX AND 
WOX ftND 
W=X THEN 
IF M<1 THEN 
IF S<1 THEN 
PRINT 



CHR*(147) 

THEN PRINT "SPLftSH YOU'RE SINKING!" 

Z=1THEN M=M-i SPRINT "BUT, YOU PULL YOURSELF OUT!" 
ZOi THEN PRINT "YOU LOSE!"sEND 
S=S-1 SPRINT "YOU STEPPED SftFELY ! " 

4000 
5000 



"PRESS (SHIFT)" 
"TO CONTINUE. " 



"1) 
"£) 
"3) 



LEFT" 

RIGHT" 

STRAIGHT 



PRINT 

PRINT 

FL=0 

GOSUB 3000 

GOTO 100 

REM *** STAY WHERE YOU ARE *** 

M=M-1 

IF M<1 THEN 4000 

FL=0 

GOTO 100 

REM **♦ CHOOSE DIRECTION *#* 

PRINT "THEN PRESS" 

PRINT "THE (RETURN) KEY." 

PRINT 

PRINT 

PRINT 

PRINT "3) STRAIGHT AHEAD" 

PRINT 

INPUT "WHICH WAY";W 

IF W<1 OR W>3 THEN PRIN" 

Z=INT(RND(1)*4)+1 

RETURN 

REM *** WAIT ROUTINE **# 

WAIT 653,1 

WAIT 653, 1, 1 

RETURN 

REM ♦** LOSE *** 

PRINT CHR*( 147) 

PRINT ^'THE MONSTER EATS YOU AND SAYS, 

PRINT "'COULD USE A BIT MORE SALT!'" 

PRINT "YOU LOSE, FOR SURE. "sEND 

REM *** WIN *«•* 

PRINT CHR*(i47) 

FOR T=l TG £00 

PRINT " YOU MADE IT i ! ! '• : 

N£XT T 



I GOTO £070 
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BONUS PROGRAM #8 

TEAM BATTIKG AVERAGE 

The TEAM BATTINB AVEF^AGE program can kesp track af your 
baseball team's batting average^ The program will ask -for 
each team member's name, total at bats, walks, and 
B^ariiiceB, and total hits« Using these figures, the 
computer will display each team member's batting average, 
and the team average. The program also can be used to 
fallow the averages of your favorite professional players 
and teams each day of the season- 



ADAM 

1 REM *** TEAM BATTING AVERAGE ADAM *** 
1 HOME 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 
30 PRINT 

40 PRINT "Press (RETURN) after each reply." 
50 PRINT 
60 INPUT "How many playerp: "; p 

79 REM *** dimension arrays *** 

80 DIM p$(p), alD(p), ws(p), h(p) 

89 REM *** input variables *** 

90 HOME 

100 PRINT "Please answer the questions." 

110 PRINT "Press (RETURIT) after each reply." 

120 PRINT 

130 FOR t = 1 TO p 

140 PRINT "What is player #"; t; "'s name" 

150 INPUT p$(t) 

160 PRINT "What were "; p$(t); "'s total at bats" 

170 INPUT ab(t) 

180 PRINT "How many walks and sacrifices" 

190 INPUT ws(t) 

200 PRINT "How many hits" 

210 INPUT h(t) 

220 IP h(t)+ws(t) > ab(t) THEN PRINT "Number too high": GOTO 160 

230 HOME 

240 NEXT t 

250 PRINT "AVERAGE", "PLAYER" 

260 PRINT 

269 REM *** figure averages *** 

270 FOR t = 1 TO p 

280 b = h(t)/(ab(t)-ws(t)) 

289 REM *** round off to three digits *** 

290 a = INT(b*1000+.5)/lOO 
300 ta = ta+ab("t) 

310 th = th+h(t) 
320 tw = tw+ws( t) 

329 REM *** print averages *** 

330 PRINT a, p$(t) 
340 NEXT t 

350 PRINT 

360 tv = th/(ta-tw) 
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370 PRINT "TEAM AVERAGE="; INT(tv*1000+.5)/1000 

380 PRINT 

390 PRINT "Press any key to run again." 

400 GET n$ 

410 RUN 

Apple II and Apple He 

1 REM *** TEAM BATTING AVERAGE APPLE *** 

10 HOME 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "PRESS (RETURN) AFTER EACH REPLY." 

50 PRINT 

60 INPUT "HOW MANY PLAYERS: ";F 

79 REM #♦* DIMENSION ARRAYS *** 

80 DIM P*(P) ,AB(P) ,WS(P) ,H(P) 

89 REM **♦ INPUT VARIABLES *** 

90 HOME 

100 PRINT "PLEASE ANSWER THE QUESTIONS. " 
110 PRINT "PRESS (RETURN) AFTER EACH REPLY." 
120 PRINT 
130 FOR T = 1 TO P 

140 PRINT "WHAT IS PLAYER #"T"'S NAME" 
150 INPUT P*(T) 

160 PRINT "WHAT WERE "Pt(T)"'S TOTAL AT BATS" 
170 INPUT AB(T) 

180 PRINT "HOW MANY WALKS AND SACRIFICES" 
190 INPUT WS(T) 

200 PRINT "HOW MANY HITS" 

210 INPUT H(T) 

220 IF H(T) + WS(T) > AB(T) THEN PRINT "NUMBER TOO HIGH": GOTO 160 

230 HOME 

240 NEXT T 

250 PRINT "AVERAGE", "PLAYER" 

260 PRINT 

269 REM «■*•» FIGURE AVERAGES *** 

270 FOR T = 1 TO P 

280 B = H(T) / (AB<T) - WS(T)) 

289 REM -a** ROUND OFF TO THREE DIGITS #** 

290 A = INT (B * 1000 + .5) / 1000 
300 TA = TA + AB(T) 

310 TH - TH + H(T) 
320 TW =' TW + WS(T) 

329 REM *** PRINT AVERAGES *•»* 

330 PRINT A,P*(T) 
340 NEXT T 

350 PRINT 

360 TV = TH / (TA - TW) 

370 PRINT "TEAM AVERAGE=" INT (TV * 1000 + .5) / 1000 

380 PRINT 

390 PRINT "PRESS ANY KEY TO RUN AGAIN." 

400 GET N* 

410 RUN 

Atari 

:i. REM ■«•■■»* TEAM BArilMG AVERAGE ATARI *«* 
1 PR: 1 NT CHR* ( :l. 25 ) 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 
30 PRINT ^ 
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40 
fJO 
60 
70 

79 

eo 

89 
90 
1 00 

no 

120 
130 
140 
150 
155 
160 
1 70 
180 
190 
200 
210 
220 



PRINT "PRESS (RETURN) AFTER EACH REPLY- 
PRINT 

PRINT "HOlAj MANV PLAYERS"? 
INPUT P • 

REM i^^^ DIMENSION ARRAYS ^^^ 
DIM F>-*(1200) ,AB(P) ,i^JS(P) ,H(P) 
REM *•>«•«• INPUT VARIABLES ^-^-^ 
PRINT CHR-^(125) 

PRINT "PRESS (RETURN) AFTER EACH REPLY" 

PRINT 

FOR T*^l TO P 

S(T)-=LEN(P-*)'^1 

PRINT "WHAT S THE NAME OF" 



TEMP** ( 20 ) , R'$' ( 1 ) , S ( 400 ) 



Ti 



MANY WALKS" 
SACRIFICES"! 



PRINT "PLAYER 

P.$:(S(T) )-'=TEMP$- 

INPUT TEMP:$: 

P:$:(S<T) ):^rEMP:i^ 

PRINT 

PRINT "WHAT WERE "^TEMPt? 

PRINT "TOTAL AT BATS"; 

INPUT D 

AB(T)=^=D 

PRINT 

PRINT "HOW 

PRINT "AND 

INPUT D 

WS(T)-:^.D 

PRINT 

PRINT" "HOW MANY. HITS";; 

INPUT D 

H<T)=^I) 

IF WS(T)-^H(T) >AB(T) THEN PRINT g PRINT "NUMBER TO HIGH" s GOTO 230 

PRINT CHR*(125) 

NEXT T 

S(T)==LEN(Pf )i 1 

PRINT " AVERAGE „ " . "PLAYER" 

PRINT 

REM -^■^■Vr FIGURE AVERAGES ^^■^.'^^• 

FOR T:^:^! TO P 

B^H(r) /^Ae(T) WS(T) ) 

REM '^^^ ROUND OFF TO THREE DIGI 
A=^ I N r ( B-^ 1 000-^•0 „ 5 ) / 1 000 
TA"=IA^-AB(T; 
TH=^THH-H(T) 
TW^rW+WS(T ) 

PRINT A,P:$-(S(T) ,S<r-K!.)- 
RE:M "^^^ PRINT AVERAGES 
NEXT T 
PRINT 

TV==^TH/<TA-TW) 
PRINT "TEAM AVERAGE-^= 
PR INI 
PRINT 
INPUT 
520 RUN 

Commodore 64 

1 REM **♦ TEfiM BATTING fiVERflGE 64 *** 

10 PRINT CNR* (147) 

20 PRINT "TEAM BftTTING QVERQGE PROGRftM" 



23U 
240 
250 
260 
270 
280 
290 
30<1) 
310 
320 
330 
340 
350 
360 
370 
379 
380 
390 
399 
400 
410 
420 
430 
440 
449 
450 
46C' 
4 70 
480 
490 
5u0 
510 



•)(-j(--j%- 



• 1 ) 



I NT ( T V-^ 1 000"t"0 « 5 ) / 1 000 



"PRESS 
R:$: 



(RETURN) TO RUN AGAIN" 
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30 PRINT 

40 PRINT "PRESS (RETURN) AFTER EACH REPLY. " 

50 PRINT 

60 PRINT "HOW MftNY PLfiYERS" 5 

70 INPUT P 

79 REM ♦** DIMENSION ARRAYS **♦ 

80 DIM P*(P),AB(P),WS(P),H(P) 

89 REM ♦*♦ INPUT VARIABLES ♦*» 

90 PRINT CHR*(147) 

100 PRINT "PLEASE ANSWER THE QUESTIONS." 

110 PRINT "PRESS (RETURN) AFTER EACH REPLY." 

1£0 PRINT 

130 FOR T=l TO P 

140 PRINT "WHAT IS PLAYER #"T"'S NAME" 

150 INPUT P*(T) 

160 PRINT "WHAT WERE "P*(T)"'S TOTAL AT BATS" 

170 INPUT AB(T) 

180 PRINT "HOW MANY WALKS AND SACRIFICES" 

190 INPUT WS(T) 

£00 PRINT "HOW MANY HITS" 

210 INPUT H(T) 

£20 IF H(T)+WS(T)>AB(T) THEN PRINT"NUMBER TOO HIBH":GOTO 160 

230 PRINT CHR*(147) 

£40 NEXT T 

£50 PRINT "AVERAGE", "PLAYER" 

£60 PRINT 

£69 REM **♦ FIGURE AVERAGES ♦** 

£70 FOR T=l TO P 

£80 B=H(T)/(AB(T)-WS(T)) 

£89 REM *** ROUND OFF TO THREE DIGITS *** 

£90 A=INT(B*1000+. 5)/1000 

300 TA=TA+AB(T) 

310 TH=TH+H(T) 

320 TW=TW+WS(T) 

3£9 REM *** PRINT AVERAGES *♦* 

330 PRINT A, P*(T) 

340 NEXT T 

350 PRINT 

360 TV=TH/ (TA-TW) 

370 PRINT "TEAM AVERAGE^" INT (TV*1000+. 5) /1000 

380 PRINT 

390 PRINT "PRESS (SHIFT) TO RUN AGAIN." 

399 REM *♦* WAIT ROUTINE **♦ 

400 WAIT 653, 1 
410 WAIT 653, 1,1 
4£0 RUN 

IBM PC 

1 REM *** TEAM BATTING AVERAGE IBM--PC #** 

10 CLS 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY. " 

50 PRINT 

60 PRINT "HOW MANY PLAYERS"? 

70 INPUT P 

79 REM *** DIMENSION ARRAYS *** 

80 DIM P*(P) ,AB(P) ,WS(P) ,H(P) 
89 REM *** INPUT VARIABLES *** 
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90 CLS 

100 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

110 PRINT 

120 FOR T=l TO P 

13(3 PRINT "WHAT IS THE NAME OF" 

140 PRINT "PLAYER #"',T; 

150 INPUT P*(T> 

160 PRINT 

170 PRINT "WHAT WERE ";P*(T)5"'S" 

180 PRINT "TOTAL AT BATS"; 

190 INPUT AB(T) 

200 PRINT 

210 PRINT "HOW MANY WALKS" 

220 PRINT "AND SACRIFICES"? 

230 INPUT WS(T) 

240 PRINT 

250 PRINT "HOW MANY HITS"? 

260 INPUT H(T) 

270 IF H(T)+WS<T) >AB(T) THEN PRINT "NUMBER TOO HieH"5B0T0 170 

280 CLS 

290 NEXT T 

300 PRINT "AVER ABE", "PLAYERS" 

310 PRINT 

319 REM *** FIGURE AVERABES *** 

320 FOR T=l TO P 
330 B=H<T)/(AB<T)-WS<T)) 
340 A=INT(B*1000+.5)/1000 
350 TA=TA+AB<T) 
360 TH=TH+H(T) 
370 TW=TW+WS(T) 

379 REM *** PRINT AVERABES *** 

380 PRINT A,P*<T> 
390 NEXT T 
400 PRINT 
410 TV=TH/(TA-TW) 

420 PRINT "TEAM AVERABE=" ; INT <TV*1000+. 5) /1000 
430 PRINT 
440 PRINT "PRESS (ENTER) TO RUN A6AIN" 

449 REM *** WAIT ROUTINE *** 

450 INPUT R* 
460 RUN 

TI-99/4A 

1 REM *** lEAM BfiTriNG AVELRA6E TI99/4A **•«• 
10 CALL CLEAR 

■20 PRINT "TEAM BATTTNe AVERAGE PROGRAM" 
30 PRINT 

40 PR :i: NT "PRESS (ENTER) AFTER EACH REPLY. " 

50 PRINT 

60 PRINT "HOW MANY PLfWERS"; 
70 INPUT P 

79 REM ■!«•** DlfiENSION ARRi'VV'S *:■** 

80 DIM Ft- ( 30 ) , AB ( 30 ) , t'iS C50 ) , H ( 30 ) 

90 CAI...L CLEAR ' 

100 PRINT "PLEASE f^l'-ISWER THE QUESTIONS," 
110 PRINT 

120 PRINT "PRESS (ENTER) AFTER EACH REPLY,," 
130 PRINT 
139 REM »#« IITPUr VARIABLES J^-^* 
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140 FOR T=l TO P 

150 PRINT "WHAT IS NAME OF" 

160 PRINT "PLAYER #";T5 

170 INPUT P$(T) 

ISO PRINT 

1 90 PR INI " WHAT WERE " 3 P* < T ) 3 " ' S " 

200 PRINT "TOTAL AT BATS"; 

210 INPUT AB(T) 

220 PRINT 

230 PRINT' "HOW MANY WALKS" 

240 PRINT "AND SACRIFICES"; 

250 INPUT WS(T.) 

260 PRINT 

270 PRINT "HOW MANY HITS"; 

280 INPUT H<Tj 

290 IF H(T> +WSC r> .>AB(T) THEN 300 ELSE 330 

300 PRINT 

310 PRINT "NUMBER TO HKSH" 

320 eOTO 220 

330 CALL CLEAR 

340 NEXT T 

350 CALL CLEAR 

360 PRINT "PLAYER" , "AVERAGE, " 

370 PRINT 

379 REM •»** FIGURE AVERAGES •«•** 

380 FOR T^=l TO P . 

390 e=H ( T ) / ( AB ( i" ) -WS (. i' ) ) 

399 REM *** ROUND OFF TO THREE DIGITS *** 

400 A~ I N r ( B* 1 000+ . 5 ) / 1 000 
410 TA=TA+AB<T) 

420 rH=TH+H(1) 
430 TW=TW+WS<T> 

439 REM *:■•»* PRINT AVERAGES *** 

440 PRINT P-J:<T) ,A 
450 NEXT r 

460 PRIiTT 

470 rV~TH/ ( lA rw) 

480 PR I N 1 " TEAM AVERAGE^ " 5 I NT ( TV* 1 000+ . 5 ) / 1 000 

490 PRITTT 

500 PRINT "PRESS (ENTER) TO RUN REVERSE" 

510 INPUT R* 

520 GOTO 10 

Timex 1000 w/t6K RAM Pack and Timex 1500 

1 REM *** TEAM BATTING AVERAGE TIMEX ♦** 
10 CLS 

20 PRINT "TEAM BATTING AVERAGE PR06RAM" 
30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 
50 PRINT 

60 PRINT "HOW MANY PLAYERS?"; 
70 INPUT P 

79 REM *** DIMENSION ARRAYS *«* 

80 DIM P*(P, 15) 
90 DIM B(P) 

100 DIM W(P) 
110 DIM H(P) 

119 REM *** INPUT VARIABLES ♦*♦ 

120 CLS 
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130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

399 

400 

410 

419 

420 

430 

440 

450 

459 

460 

470 

480 

490 

500 

510 

520 

530 

540 



PRINT 

PRINT 

PRINT 

FOR T= 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

INPUT 



"PLEASE ANSWER THE QUESTIONS." 
"PRESS (ENTER) AFTER EACH REPLY. 



= 1 TO P 
"WHAT IS 
"PLAYER 
P*(T) 



THE NAME OF" 



"WHAT WERE THE TOTAL" 
"AT BATS FOR ";P*(T);"?" 
B(T) 



"HOW 
W(T) 



MANY WALKS AND SACRIFICES? 



"HOW MANY HITS?" 

H(T) 
IF H(T)+W(T) >B(T) 
CLS 

NEXT T 

PR I NT " AVERAGE " , " PLAYER " 
PRINT 



THEN GOTO 240 



LET 
LET 
LET 
LET 
LET 
REM 
FOR 
LET 
REM 
LET 
LET 
LET 
LET 
REM 



Q=0 

Y=0 

U=0 

V=0 

A=0 

*♦* FIGURE AVERAGES *** 

T=l TO P 

6=H<T)/(B<T)-W(T)) 

»** ROUND OFF TO THREE DIGITS **» 

A= I NT ( G« 1 000+ . 5 ) / 1 000 

Q=Q+B(T) • 



Y=Y+H(T) 

U=U+W<T) 

*** PRINT AVERAGES **« 
PRINT A,P*(T) 
NEXT T 
PRINT 

LET V=Y/(Q-U) 

PR I NT " TEAM A VERAGE= " 5 I NT ( V* 1 000+ . 5 ) / 1 000 
PRINT 

PRINT "PRESS 
INPUT C* 
RUN 



(ENTER) TO RUN AGAIN. 



TRS-80 Color Computer 

1 REM ♦*♦ TEPiM BftT 



10 
£0 
30 
40 
50 
80 
70 
79 
80 
89 
90 



CLS 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 



lixiB flVERfiGE TRS-CQLQR *** 
"TEAM BflTTINS AVERAGE PROGRAM'^ 
"PRESS (ENTER) AFTER EACH REPLY." 



"HOW MANY PLAYERS"; 

P 

REM *** DIMENSION ARRAYS *** 
DIM P*(P), AB(P),WS(P),H(P) 
REM *** INPUT VARIABLES »** 
CLS 
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100 PRINT "PRESS (ENTER) AFTER EfiCH REPLY. " 

110 PRINT 

120 FOR T=l TO P 

130 PRINT "WHfiT IS THE NAME OF" 

140 PRINT "PLAYER #";T5 

150 INPUT P*(T) 

160 PRINT 

170 PRINT "WHAT WERE ";P*(T);"'S" 

180 PRINT "TOTAL AT BATS"; 

190 INPUT AB<T) 

200 PRINT 

£10 PRINT "HOW MANY WALKS" 

220 PRINT "AND SACRIFICES"; 

230 INPUT WS(T) 

240 PRINT 

£50 PRINT "HOW MANY HITS"; 

260 INPUT H<T) ' 

£70 IF H(T)+WS<T)>AB<T) THEN PRINT "NUMBER TOO HISH":GOTO 170 

280 CLS 

290 NEXT T 

300 PRINT "AVERABE", "PLAYERS" 

310 PRINT 

319 REM «♦♦ FIGURE AVERf^GES *** 

320 FOR T = 1 TO P 

330 B=H(T)/(AB<T)-WS<T)) 

339 REM *** ROUND OFF TO THREE DIBITS ♦** 

340 A==INT(B*1000+. 5)/i000 
350 TA=TA+AB<T) 

360 TH=TH+H(T) 
370 TW=TW+WS(T) 

379 REM *** PRINT AVERAGES **♦ 

380 PRINT A, P$<T) 
390 NEXT T 

400 PRINT 

410 TV=TH/(TA-TW) 

420 PRINT "TEAM AVERAGE=" ; INT (TV*1000+. 5) /i000 

430 PRINT 

440 PRINT "PRESS (ENTER) TO RUN AGAIN" 

449 REM *** WAIT ROUTINE *♦* 

450 INPUT R$ 
460 RUN 

TRS-80 Model III and Model 4 

1 REM *** TEAM BATTING AVERAGE TRS-80 MODELS 3 AND 4 *** 

10 CLS 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT > 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

50 PRINT 

60 PRINT "HOW MANY PLAYERS"; 

70 INPUT P 

79 REM *#* DIMENSION ARRAYS **# 

80 DIM P*(P),AB(P) ,WS(P),H(P) 

89 REM *** INPUT VARIABLES *** 

90 CLS 

100 PRINT "PRESS (ENTER) AFTER EACH REPLY. " 

110 PRINT 

120 FOR T=l TO P 

130 PRINT "WHAT IS THE NAME OF PLAYER #";T; 
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150 INPUT P*(T) 

160 PRINT 

170 PRINT "WHAT WERE ";P*(T);"'S TOTAL AT BATS "5 

190 INPUT AB(T) 

200 PRINT 

210 PRINT "HOW MANY WALKS AND SACRIFICES"; 

230 INPUT WS(T) 

240 PRINT 

250 PRINT "HOW MANY HITS"; 

260 INPUT H(T) 

270 IF H<T)+WS(T)>AB(T) THEN PRINT "NUMBER TOO HIGH":eOTO 170 

280 CLS 

290 NEXT T 

300 PRINT "AVERAGE", "PLAYER" 

310 PRINT 

319 REM *** FIGURE AVERAGES **** 

320 FOR T=l TO P 

330 B=H(T)/(AB(T)-WS(T)) 

339 REM «♦* ROUND OFF TO THREE PLACES »«# 

340 A=INT(B*1000+.5)/1000 
350 TA=TA+AB(T) 

360 TH=TH+H(T> 
370 TW=TW+WS(T) 

379 REM *** PRINT AVERAGES ♦♦* 

380 PRINT A,P*(T) 
390 NEXT T 

400 PRINT 

410 TV=TH/(TA-TW) 

420 PR I NT " TEAM A VER AGE= " ; I NT ( TV* 1 000+ . 5 ) / 1 000 

430 PRINT 

440 PRINT "PRESS (ENTER) TO RUN AGAIN"; 

449 REM *♦* WAIT ROUTINE ♦«♦ 

450 INPUT R* 
460 RUN 

VIC-20 

1 REM ♦** TEAM BATTING RVG. VIC-20 #♦* 

10 PRINT CHR*(1A7) 

28 PRINT "TEAM BATTING" 

30 PRINT "AVERAGE PROGRAM" 

40 PRINT 

50 PRINT "PRESS (RETURN) AFTER EACH REPLY. " 

60 PRINT 

70 PRINT "HOW MANY PLAYERS"; 

80 INPUT P 

83 REM **♦ DIMENSION ARRAYS *** 

90 DIM P*(P), AB(P),WS(P),H(P) 

99 REM **♦ INPUT VARIABLES *** 

100 PRINT CHR*<147) 

110 PRINT" PLEASE ANSWER" 

120 PRINT"THE QUESTION" 

130 PRINT 

140 PRINT"PRESS (RETURN) AFTER EACH REPLY." 

150 PRINT 

160 FOR T=l TO P 

170 PRINT"WHAT'S THE NAME OF" 

180 PRiNT"PLAYER #"T 

190 INPUT P*"(T) 

£00 PRINT 
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210 
220 
230 
240 
250 
2&0 
270 
280 
290 

300 

310 
320 
330 
340 
350 
359 
360 
370 
379 
380 
390 

400 

410 
419 
420 
430 
440 
450 

470 
480 
490 
499 

500 



PRINT"WHflT WERE "P*(T)"'S' 

PR I NT "TOTAL fiT BfiTS" 

INPUT ftB(T) 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

INPUT 



"HOW MANY WALKS" 
"AND SACRIFICES" 
WS(T) 



"HOW MANY HITS 

H(T) 
IF H<T)+WS(T)>AB(T) 
PRINT CHR*(147) 
NEXT T 

PRINT "AVERAGE PLAYER" 
PRINT 

REM **♦ FIGURE AVERAGES ♦♦# 
FOR T=l TO P 



THEN PRINT"NUMBER TOO HIGH":GOTO 210 



-WS(T)) 
OFF TO THREE 

5)/1000 



DIGITS **♦ 



B=H(T)/(AB(T)- 

REM *♦* ROUND 

A=INT(B*1000+. 

TA=TA+AB<T) 

TH=TH+H(T) 

TW=TW+WS(T) 

REM *** PRINT AVERAGES *** 

PRINT A, P*(T) 

NEXT T 

PRINT 

TV=TH/ (TA-TW) 

PRINT "TEAM AVERAGE=" INT (TV*1000+. 5) /i000 

PRINT 

PRINT"PRESS (SHIFT) TO" 

PRINT"TO RUN AGAIN. " 

REM *** WAIT ROUTINE *** 

WAIT 653, 1 

WAIT 653, 1, 1 

RUN 
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BONUS PROGRAM #9 

THE DRAWING PROGRAM 

The sky is the limit when using THE DRAWING PROGRAM. 
Drawing on the computer is as easy as pushing the 
joystick, or pressing direction keys. On some computers 
you can change character, colors, or backgrounds. To make 
these choices, press the key printed next to your choice 
on the screen. EraE">e by di^ciujing- in the color of the 
background. You'll be surprised at the pictures you can 
make , wi th a 1 i 1 1 1 e pract i ce and pat i ence . 



ADAM 

1 REM *** DRAWING ADAM *** 

10 GOTO 3000 

99 REM *** Joystick routine *** 

100 IF J = THEN 200 

110 xi = 0: yi = 0: li = 

120 IP PDL(l) < 10 THEN yi = -1 : GOTO 140 

130 IE PDL(1) > 245 THEN yi = 1 

140 IP PDL(3) < 10 THEN xi = -1: GOTO 160 

150 IP PDL(3) > 245 THEN xi =1. 

160 kol = INT(RND(1 )*50) 

1 70 RETURN 

199 REM *** read keyboard routine *** 

200 xi = 0: yi = 0: li = 0: kol = 
210 GET ke$ 

220 IP ke$ = "1" THEN kol = 1 : RETURN 

230 IP ke$ = "2" THEN END 

240 IP ke$ = kt$(li) THEN yi = yt(li) : xi = xt(li) : RETURN 

250 li = li+1 : IP li < 8 THEN 240 

260 RETURN 

499 REM *** main drawing loop *** 

500 IP ro > 39 THEN ro = 
510 IP ro < THEN ro = 39 
520 IP CO ■> 39 THEN co = 
530 IP CO < THEN co = 39 

540 IP kol = 1 THEN COLOR = INT(R[JD(1 )*1 5)+1 

550 PLOT CO, ro 

560 GOSUB 100 

570 ro = ro+yi: co = co+xi 

580 GOTO 500 

2999 REM *** introduction *** 

3000 TEXT: HOME 

3010 PRINT "Are you using a joystick?" 

3020 GET j$ 

3030 IP J$ = "Y" OR J$ = "y" THEN j = 1 : HOME: GOTO 3110 

3040 j = 

3050 HOME ■ 

3060 PRINT "The direction keys are:" 

3070 PRINT 

3080 PRINT TAB(2); "u i o" 

3090 PRINT TAB(2); "j 1" 
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3100 PRINT TAB(2); "m , ." 

3110 PRINT 

3120 PRINT "Press any key to begin." 

3130 GET n$ 

3140 HOME: GR: COLOR = 1 

3150 IP d = THEN VTAB 22: PRINT "Press '1' 

3160 IF j = THEN PRINT "Press '2' to end" 

3169 REM *** initialize variables *** 

3170 DIM kt$(7), xt(7), yt(7) 

3180 FOR i = TO 7: READ kt$(i): NEXT 

3190 FOR i = TO 7: READ xt(i): NEXT 

3200 FOR i = TO 7: READ yt(i): NEXT 

3210 GOTO 500 

5000 DATA ",",".",l,o,i,u, j,m 

5010 DATA 0,1 ,1 ,1 ,0,-1,-1 ,-1 

5020 DATA 1,1,0,-1,-1,-1,0,1 

Apple 11 and Apple He 



to change color" 



1 REM *** DRAW I MB APPLE •»*•» 




10 


GOTO 3000 




99 


REM *** JOYSTICK ROUTINE *** 




100 


IF J ■■-.. THE^4 200 




110 


XI = OsYI = OsLI =----^ 




120 


IF PDL (1) < 64 THEN YI = - 


1; GOTO 140 


130 


IF PDL (1) > 192 THEN YI = 1 




140 


IF PDL (0) < 64 THEN XI =••= - 


l5 GOTO 210 


150 


IF PDL (0) > 192 THEN XI = li 


GOTO 210 


199 


REM *** READ KEYBOARD ROUTINE 


*** 


200 


XI = OsYI = OsLI = 




210 


KE: == PEEK ( - 163S4) 5 POKE - 


16368,0 


220 


IF KE.< 128 THEN RETURN 




230 


IF KE = 177 THEN KOL = KOL + i 




240 


IF KOL > 15 THEN KOL = 




280 


IF CHRt- (KE -■• 128) = KTf (LI) 


THEN YI = Y 


290 


LI = LI + l3 IF LI < S THEN 280 




300 


RETURN 




499 


REM N-s* MAIN DRAWING LOOP **■* 




500 


IF RQ > 39 THEN RO =^ 




510 


IF RO < THEN RO = 39 




520 


IF CO > 39 THEN CO -~-- 




530 


IF CO < THEN CO === 39 




540 


COLOR-= KOL 




550 


PLOT CO,RO 




560 


GOSUB 100 




570 


RO =.R0 •+ YIsCO = CO -1- XI 




580 


GOTO 500 




2999 


REM . *** INTRODUCTION *** 




3000 


TEXT s HOME 




3010 


PRINT " ARE YOU US INS A JOYS 


TICK (Y/N)? 


3020 


GET J$ 




3030 


IF J$ ---■ "Y" THEN J ==■• Is HOME 


s GOTO 3160 


3040 


IF J* = "N" THEN J = 




3050 


HOME 




3060 


PRINT "THE DIRECTION KEYS ARE 


a II 


3070 


PRINT 




30G0 


PRINT TAB( 6) "U I 0" 




3090 


PRINT TAB( 6) "J ■ L" 




3100 


PRINT TAB( 6) "M , „ " 




3110 


PRINT 





XI = 



(Li: 



RETURN 
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3120 PRINT "PRESS ANY KEY TO BE6IN DRAWING." 

3130 GET N$ 

3150 HOME 

3159 REM *** INITIALIZE VARIABLES **•» 

3160 DIM KT${7) ,XT<7) ,YT(7) 
3170 KOL = 1 -, 

3180 FOR I = TO 7s READ KTsP ( I > s NEXT 

3190 FOR I = TO 75 READ XT(I)! NEXT 

3200 FOR I = TO 7s READ YT (I ) : NEXT 

3219 REM *** SCREEN DISPLAY *** 

3220 GR 

3230 FOR T = 1 TO 21s PRINT s NEXT T 

3240 PRINT "PRESS ' 1 ' TO CHANGE COLOR" 

3260 GOTO 500 

5000 DATA " , " , " . " , L , , I , IJ , J , M 

50 1 DATA 0,1,1, 1 , , - 1 , - 1 , - 1 

5020 DATA 1,1,0,-1,-1, - 1 ,0,1 

Atari 

1 REM »** DRAWING ATARI *** ' 

9 REM *•«•* DIMENSION ARRAYS *** 

10 DIM R4-(l) ,J$(1) ,J(8) ,B(a) ,XT(8) ,YT<8) 
20 GOTO 3000 

99 REM •«■** JOYSTICK ROUTINE *«•* 

100 IF J =0. THEN 210 
110 L I =0 ,1 Y I =0 s X I ==0 
120 .JV==--STICK(0) ■ 

130 IF JV=J(LI) THEN YI^=-YT <LI ) s XI==XT (LI ) : GOTO 200 

140 LI-LI+l 

150 IF LKS THEN 130 

199 REM *** READ KEYBOARD ROUTINE *** 

200 XI=0s YI=0!:LI=0 
210 K-^PEEK(764) 

220 IF •K=255 THEN RETURN 

230 IF K=--62 THEN 3170 

240 IF K=18 THEN Ka=4i:a+ 1 s IF K0>3 THEN KO^^O 

250 IF K=B(LI) THEN YI=YT (LI ) s X I=--XT (Ll") : RETUFW 

260 LI=LIH- 

270 IF LKS THEN 250 

280 RETURN 

499 REM **«• MAIN DRAWING LOOP *•«•* 

500 IF RG>19 THEN RG==0 
510 IF R0<0 THEN R0=^19 
520 IF C0>39 THEN C0=0 
530 IF C0<0 THEN CQ=:59 
540 COLOR KO 

560 PLOT ' CO , RO 

570 GQSUB 100 

500 RO=RO+YI i CO=CO-!"X I 

590 POKE 764,255 

600 Y 1:^^=0 2 XI=Oi:LI==0 

610 GOTO 500. 

2999 REM *** INTRODUCTION **«• 

3000 PRINT CHR*-(125) 

3010 PRINT "PRESS (RETURN) . AFTER YOUR ANSWER." 

3020 PRINT 

3030 PRINT "ARE YOU USING A JOYSTICK (Y/N) " 

3040 INPUT J* 

3050 IF J$="Y" OR J*=^"YEi;S" THEN J==:l j PRINT CHRf- (125) ;• GOTO 3170 
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3060 


IF J$= 


= "N0" OR Jf-="N" THEN J=0 


3070 


PRINT 


CHR*(125) 


3080 


PRINT 


"THE DRAWING KEYS ARE:" 


3090 


PRINT 




3100 


PRINT 


U I 0" 


3110 


PRINT 


J L" 


3120 


PRINT 


M ,. „ " 


3130 


PRINT 




3140 


PRINT 


"PRESS (RETURN) TO BEGIN DRAWING 


3150 


INPUT 


J* 


3160 


PRINT 


CHRh^<125) 


3169 


REM *** INITIALIZE VARIABLES *** 


3170 


RESTORE 


3180 


KO=23CO-19sRa-10 


3190 


GRAPHICS 3s POKE 764,255;: F'OKE 752,2 


3199 


REM *** INITIALIZE MOTION ARRAYS *** 


3200 


FOR 1 = 


=0 TO 7s READ Qs J ( I ) =0; NEXT I 


3210 


FOR I-- 


=0 TO 7s READ Qs B ( I > =Qs NEXT I 


3220 


FOR 1 = 


=0 TO 7 5 READ Qs XT a ) -Qs NEXT I 


3230 


FOR 1 = 


=0 TO 7s READ Qs YT ( I ) ^Qs NEXT I. 


3239 


REM *** SCREEN TEXT *** 


3240 


PRINT 


PRESS S TO CLEAR SCREEN" 


3250 


PRINT 


PRESS C TO CHANGE COLORS 


3260 


GOTO 500 


5000 


DATA 1 


0,14,6,11,7,9,13,5 


5010 


DATA 11,13, 8., 1 , , 37 , 32 ,34 


5020 


DATA - 


•1,0,1,-1,1,-1,0,1 


5030 


DATA -■ 


•1,-1,-1,0,0,1,1,1 



Commodore 64 

1 REM ♦*♦ DRAWING £4 **♦ 
10 GOTO 31300 

99 REM ♦♦* JOYSTICK ROUTINE *** 

100 IF J=0 THEN E00 
110 XI=0:YI=0:LI=0 
120 JV=PEEK(563£1) 

130 JV=15-(JVftND15) / 

140 IF JV=JS<LI) THEN YI=YT (LI ) : XI=XT (LI) :eOTQ £10 

150 LI=LI+lsIF LI< 10 THEN 140 

199 REM *** REfiD KEYBOfiRD ROUTINE ♦** 

£00 XI=0:YI=0;LI=0 

£10 SET KE* 

££0 IF KEY*=""THEN RETURN 

£30 IF KE*=CHR*(133) THEN GOSUB 400 

£40 IF KE*=CHR*(134) THEN K0L=K0L+1 

£50 IF K0L>15 THEN KOL=0 

£60 IF KE*=CHR*(135) THEN B0=B0+1 

£70 IF BOMS THEN 60=1 

£80 IF KE*=CHR*(136) THEN BPl=Bfi+l 

£90 IF Bfl>15 THEN Bfl=l 

300 IF KE*=KT*(LI) THEN YI=YT (LI ): XI=XT <LI ): RETURN 

310 LI=LI + 1:IF LK8 THEN 300 

320 RETURN 

399 REM *** CHANGE CHfiRflCTER *** 

400 CH=CH+1 

410 IF CH=i28 THEN CH=£7 
4£0 IF CH=161 THEN CH=33 
430 IF CH=3£ THEN CH=160 
440 RETURN 
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499 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
2999 

3000 
3010 

3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 

3100 

3110 
3120 
3130 
3140 
3150 
3159 
3160 
3170 
3180 
3190 
3200 
3210 
3219 
3220 
3230 
3240 
3250 
3260 

5000 

5010 
5020 
5030 



REM **« MAIN DRfiWINS LOOP ♦«* 

IF R0>S1 THEN RO=0 

IF RO<0 THEN R0=21 

IF C0>39 THEN CO=0 

IF CQ<0 THEN C0=39 

POKE 53280, BO: POKE 53281, BA 

POKE CB+CO+40*RO, KOL 

POKE SB+CO+40*RO, CH 

GOSUB 100 

RO=RO+YI:CO=CO+XI 

GOTO 500 

REM *** INTRODUCTION ♦♦* 

PRINT CHR*<147) 

PRINT " ARE YOU USING fl JOYSTICK (Y/N)?" 

GET J*: IF J*=""THEN 3020 

IF J*="Y" THEN J=1:PRINT CHR*( 147) s GOTO 3160 

IF J*="N" THEN J=0 

PRINT CHR*<147) 

PRINT "THE DIRECTION KEYS ARE:" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

WRIT 



TftB(6)"U 
TfiB(6)"J 
TfiB(6)"M 



J 



0" 
L" 



(SHIFT) TO BEGIN DRAWING. " 



PRESS 
653, 1 
WAIT 653, 1, 1 
PRINT CHR$(147) 

REM *** INITIALIZE VARIABLES *** 
SB= 1 024 s CB=552g6 : C0= 1 9 : RQ= 1 
BA= 1 2 : B0=9 s CH= i 60 : POKE 650, 1 28 
FOR 1=0 TO 7:READ KT*(I) :NEXT 
FOR 1=0 TO 7 s READ 
FOR 1=0 TO 7 s READ 
FOR 1=0 TO 7 s READ 
REM **♦ LE SCREEN 
PRINT CHR*(ig)CHR*(144) 
FOR T=l TO 2I5PRINT5NEXT T 
PRINT "Fl CHARACTER F3 
PRINT "F5 BORDER COLOR F7 
GOTO 500 

DATA ", ", ". ",L, 0, I,U, J,M 
DATA 0, 1, 1, 1,0,-1,-1,-1 
DATA 1, 1,0, -1,-1,-1, 0„i 
DATA 2, 10,8,9, 1,5,4,6 



XT(I) sNEXT 
YT(I) 5 NEXT 
JS(I) sNEXT 
DISPLAY *♦* 



CHARACTER COLOR" 
BACKGROUND COLOR" 



IBM PC 



1.0 FUET'I *** .0R''H'.!IN{3 PROGjRAM IBM PC *** 

20' REri *■»* D .( MENS .1. QM CODE ARRAVSS *** 

30 KEY OFF ; 

40 GOTO :::!.0C* 

50 i.... .[ "'-..> ?. X 1 ~-0 s Y .[ -"O 

6';) ke*=-=i:ni<ey$ 

70 if ke*="" then return 

80 IF i<E:$=="S" THEN CLSsiSOTO 470 

90 IF 1<E:1;~"C" THEN GOSUB 140 

1 00 I F l<E*~=l<T-$: ( L I ) THEN Y I =YT (. L I ) : X I -XT ( L.. I > 3 RETURN 

1 1 L I ^^= L. I + 1 s 1 F L I < a THEN .1. 00 

1.20 RETURN 
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130 REM **•»• CHANBE CHARACTER **# 

140 CH=CH+1 

150 IF CH>223 THEN CH=169 

160 IF CH==171 THEN CH=32 

170 IF CH=33 THEN CH=173 

180 RETURN 

190 F^'EM *■»■* MAIN DRAWING LOOP *■»* 

200 IF R0>23 THEN Ra=l 

210 IF R0<1 THEN R0=23 

220 IF Cn< 1 THEN C0=79 

230 IF C0>79 THEN C0==^1 

240 LOCATE RO,;CO,0 

250 PRINT CHR:*(CH)5 

260 80SUB 50 

270 RO=RO-!-Yl£CO^~-COv!-XI 

280 GOTO 200 

290 REM *•»* INTRODUCTION *** 

300 SCREEN 0,0,0i WIDTH 80 

310 CLS 

320 PRINT "THE DRAWING KEYS AREs " 

330 PRINT 

340 PRINT TAB (8) 5 "U 10" 

350 PRINT TAB (8)5 "J L" 

360 PRINT TAB(8);"M , 

370 PRINT 

380 PRINT "PRESS < ENTER > TO BEGIN." 

390 R$= I NKEY::r 1 I F R$< >CHR* (13) THEN 390 

4<)0 CLS 

4 1 CH"2 1 9 E C0---40 -: R0-- 1 2 

420 REM *x-H- INITIALIZE DIRECTION ARRAYS *** 

430 FOR T-0 TO 7 s READ KTt (I ) s NEXT I 

440 FOR 1=0 TO 7: READ XT(I):NEXT I 

450 FOR 1=0 TO 7: READ YT CDs NEXT I 

460 REM **s- SCREEN DISPLAY *-5i-* 

470 LOCATE 24,27 

480 PRINT "PRESS C TO CHANGE CHARACTER"? 

490 LOCATE 25 ,, 27 

500 PRINT "PRESS S TO CLEAR SCREEN"; 

510 GOTO 200 

1 000 DATA " , " , " . " ^ L , , I , !J , J , M 

1 1 DATA ,1,1,1, , - 1 , - 1 .., - 1 

1 020 DATA 1 , 1 , , -■ 1 , ■- 1 , -'1 , , 1 

TI-99/4A 

1 REM **•*»• DRAWING TI99/4A *** 
10 GOTO 540 

19 REM *** JOYSTICK ROUTINE *** 

20 IF J=0 THEN 140 
30 CALL J0YST<1,M,N) 
40 XI=0 

50 YI=0 

60 LI=0 

70 IF M=JI(LI)THEN 80 ELSE 120 

80 IF N=K1(LI)THEN 90 ELSE 120 

90 XI=XT(LI) 

100 .YI=XY(LI) 

110 GOTO 170 

120 LI=LH-1 

130 IF LK8 THEN 70 
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140 


XI=0 




150 


YI=0 




160 


LI=0 




169 


REM »** READ KEYBOARD *** 




170 


CALL KEY(3,K,P) 




180 


IF P=0 THEN 190 ELSE 200 




190 


IF J=0 THEN 170 




200 


IP f::>49 THEN 210 ELSE 250 




210 


K0==K0+1 




220 


IF k0>6 THEN 230 ELSE 240 




230 


KO=.l 




240 


d-l=C<l<0) 




250 


IF K=50 THEN 260 ELSE 290 




260 


s=--s+i 




270 


IF S>i6 THEN. 280 ELSE 290 




280 


S==3 




290 


IF K=51 THEN 990 ELSE 300 




300 


IF K>=B(LI)THEN 310 ELSE 340 




310 


XI=-XT(LI) 




320 


YI=XY(LI) 




330 


RETURN 




340 


LI=LI+1 




350 


IF J==l THEN 390 




360 


IF LK8 THEN 300 




370 


XI=0 




380 


YI=0 




390 


RETURN 




399 


REM *** SET DIMENSIONS *** 




400 


IF R0>20 THEN 410 ELSE 420 




410 


R0=1 




420 


IF R0<1 THEN 430 ELSE 440 




430 


Ra=20 




440 


IF C0>32 THEN 450 ELSE 460 




450 


C0=1 




460 


IF CO<i THEN 470 ELSE 480 


/■ 


470 


CQ==32 




480 


CALL SCREEN <S) 




490 


CAL.L HCHAR ( RQ , CO , CH , 1 ) 




500 


GdSUB 20 




510 


R0==R0h-X1 




520 


CO==CO+YI 




530 


GOTO 400 




S39 


REM #** INTRODUCTION ***;• 




540 


CALL CLEAR 




550 


PRINT "TYPE YOUR ANSWER" 




560 


PRINT "THEN PRESS (ENTER).," 




570 


PRINT 




580 


PRINT "ARE YOU US INS A JOYSTICK"; 




590 


INPUT J$ 




600 


IF SEB*(J:t-,l,l)--"Y" THEN 610 ELSE 630 




610 


J^^n , 




620 


GOTO 70.0 




630 


J-=0 




640 


CALL CLEAR 




650 


PR INT " THE DIRECT I ON KE YS ARE 5 " 




660 


PRINT 




670 


PRINT TAB (8) ; "U I 0" 




680 


PRINT TAB (9) ; "J L" 




690 


PRINT TAB (8) 5 "M , 





129 
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700 
710 
720 
730 
739 
740 
750 
760 
770 
780 
790 
SOO 
SiO 
820 
830 
840 
850 
860 
870 
880 
890 
900 
909 
910 

930 

940 

950 

960 

970 

980 
909 

990 
lOOC 

ioic 
102(: 
1 03(: 
i04(: 
lose 
i 06(: 
107(: 
lose 
:lo9(: 
HOC 
1 1 1 c 
1j.2( 

11 3(: 



(ENTER) TO BEGIN. " 



PRINT 

PRINT "PRESS 

INF^UT P* 

RESTORE 

REM *** DEFINE CHARACTERS **•» 

A*= " FFFFFF" FFFFFFFFFF " 

CALL CHAR(96,A$) 

CHAR (104, A*) 

CHAR ( 128, A^t) 

CHAR (136, A*) 

CHAR (144, A*) 
A*) 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 

»« J' M L— L.. 

CALL 
C0=16 
R0=10 
CH==96 



CHAR (152,, 
COLOR (9,2,2) 
COLOR (10, 3, 3) 
COLOR (13,5,5) 
COLOR (14, 7,7) 
COLOR (15, 
COLOR (16, 16, 16) 



11,11) 



REM *-»* 

FOR 1=0 

READ XT 

READ 

READ 

READ 

READ 

READ 

NEXT 

REM 



LOAD 
TO 7 
I) 

XY(I) 

J I ( I ) 

KI (I) 

B(I) 

C ( I ) 

I 
**■» SCREE 



JOYSTICK AND KEYBOARD 'ARRAYS **• 



-L CLEAR 



PRINT 

PRINT 

PRINT 

Ra=10 

C0=^=16 

GOTO 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



1 



TO 
TO 
TO 



:N DISPLAY «** 

CHANGE PAINT COLOR" 
CHANGE SCREEN COLOR" 
CLEAR SCREEN" 



400 
- 1 ,, ( 
■■- 1 
0,1 



, , 4 , 
1,4,4, 

-T f ^-^ ^ / 



■s , o 

9 , 96 



104 



(), 



,46, 123 
,44,136 



■1,- 



-4 
-.4 

■4,0,74 



'7,144 

152 



•-1 , -4,4,35,0 



Timex 1000 and 1500 

1 REM *** DRAWING TIMEX »«* 
10 CLS 

20 PRINT "THE DRAWING KEYS ARE: " 
30 PRINT 

40 PRINT "5=LEFT 6=D0WN 7=UP a=RI6HT" 
50 PRINT 

60 PRINT "PRESS < ENTER > TO BEGIN. " 
70 LET K*=INKEY* 
80 IF K*="" THEN GOTO 70 
90 CLS 
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99 REM «*♦ INITIALIZE VARIABLES ««* 
100 LET R0=11 
110 LET C0«15 
120 LET CH-128 

i29 REM ♦♦* SCREEN DISPLAY ♦♦* 

130 PRINT AT 20,3;"PlRESS C TO CHANGE CHARACTER" 
140 PRINT AT 21,3; "PRESS S TO CLEAR SCREEN" 
150 GOTO 500 

199 REM «»« READ KEYBOARD **♦ 

200 LET K«=»INKEY* 
210 IF K*="" THEN GOTO 200 
220 IF K*="S" THEN GOTO 90 
230 IF K*="C" THEN GOTO 400 
240 IF K*="5" THEN LET C0=C0-1 
250 IF K*="6" THEN LET R0=R0+1 
260 IF K*="7" THEN LET R0=R0-1 
270 IF K*="8" THEN LET C0=C0+1 
280 RETURN 

399 REM *** CHANGE CHARACTER «*♦ 

400 LET CH=CH+1 
410 IF CH=139 THEN LET CH=0 
420 IF CH=1 THEN LET CH=128 
430 RETURN 

499 REM **« DRAWING LOOP ♦*♦ 

500 IF C0>31 THEN LET C0=0 
510 IF C0<0 THEN LET C0=31 
520 IF R0>19 THEN LET R0=0 
530 IF R0<0 THEN LET R0=19 
540 PRINT AT RO,CO;CHR« (CH) 
550 60SUB 200 
560 GOTO 500 

TRS-80 Color Computer 

1 REM *** DRAWING TRS-S® COLOR *** 
10 GOTO 1000 

99 REM **♦ LE JOYSTICK ROUTINE ««* 

100 H=JOYSTK(0) 
110 V=J0YSTK<1) 

120 IF H<15 THEN C0=C0-1 : RETURN 
130 IF H>45 THEN C0=C0+1 : RETURN 
140 IF V<15 THEN C0=C0-3£: RETURN 
150 IF V>45 THEN C0=^C0+3£: RETURN 

199 REM *** LE KEYBOfiRD ROUTINE *** 

200 LI=0 

210 KE*=INKEY*:IF KE*="" THEN RETURN 
220 IF KE*="C" THEN K0=K0+1 
230 IF K0>8 THEN K0=1 
240 IF .KE*="Z" THEN 60SUB 400 
£50 IF Ke*="@" THEN CLS (RND (8) -1 ) sGOTO 1180 
260 IF KE*=KT*(LI) THEN C0=C0+YT (LI ): RETURN 
270 LI=LI+1 
280 IF LK8 THEN 260 
£90 GOTO 200 

399 REM *** CHORfiCTER CHANGE *** 

400 CH=CH+1 

410 IF CH>15 THEN CH=0 
420 RETURN 

499 REM *** MfilN DRfiWING LOOP »♦* 

500 IF CQ>383 THEN C0=C0-3£*13 
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510 
520 
530 
540 
550 
560 
570 
580 
999 

1000 
1010 
1020 
1030 

1040 

1050 
1060 
1070 
1080 
1090 
1100 
1110 

1120 
1130 
1139 
1140 
1150 
1160 
1170 
1179 
1180 
1190 

1200 

1210 

£000 
2010 



IF CO<0 THEN C0=C0+32*13 

SC= 1 28+ 1 6# ( KO- 1 ) +CH 

PRINT@CO, CHR*(SC) I 

ON J GOSUB 100,200 

IF JOl THEN 580 

FOR D=l TO 50 

NEXT D 

GOTO 500 

REM #♦» INTRODUCTION *** 

CLS 

PRINT "ARE YOU USING ft JOYSTICK 

J*=INKEY*?IF J*="" THEN 1020 

IF J*="Y" THEN J=l!GOTO 1140 

IF J*<> "Y" THEN J=;2 

CLS 

PRINT "THE DIRECTION KEYS flREs" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

REM ♦ 

CLS<0) 

C0=239sCH=15sK0=3 

FOR 1=0 TO 7s READ KT*(I)sNEXT 

FOR 1=0 TO 7sREftD YT(I);NEXT 

REM ♦** SCREEN DISPLAY ♦*♦ 

PRINT@423, "C=CHflNGE COLOR"; 

"Z=CHflNGE CHflRftCTER 
"@=CLEflR SCREEN": 



(Y/N)?" 



"U I 


0" 






"J 


L" , 






"M , 


11 

a 






"PRESS 


(ENTER) 


TO 


BEG I 


R* 








♦ INITIALIZE VARIABLES 



*** 



PRINTiMbD, 
PRINT@487, 
GOTO 500 
DATA ", ", 



L,0, I,U, J, M 



DATA 32,33,1,-31,-32,-33,-1,31 



TRS°80 Model III and Model 4 

TRS-80 



1 REM *** DRAWING 

10 GOTO 1000 • 

199 REM *** KEYBOARD ROUTINE *** 
LI=0 

H::E*=INKEY*: IF KE*="" THEN RETURN 
IF KE*="Z" THEN GOSUB 400 
IF KE*="@" THEN CLS: GOTO 1170 
I F KE*=KT* (L I ) THEN CD=CO+ YT (LI): RETURN 
LI=LI+1 

THEN 260 



MODELS 3 AND 4 CASS. AND MODEL 3 DISK BASIC ** 



200 
210 
240 
250 
260 
270 
280 
290 
399 
400 
410 
430 
499 
500 
510 
530 
540 
560 
570 



IF LKB 

RETURN 

REM *** CHARACTER CHANGE *** 

CH=CH+1 

IF CH>255 THEN CH=129 

RETURN 

REM *•«•* MAIN DRAWING LOOP **» 

IF C0>832 THEN C0=C0-64»14 

IF C0<0 THEN C0=C0+64*14 

PRINTiiCO,CHR*(CH); 

GOSUB 200 

FOR D=l TO 50 

NEXT D 
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580 GOTO 500 

999 REM *** INTRODUCTION *** 

1000 CLS 

1060 PRINT "THE DIRECTION KEYS ARE:" 

1070 PRINT 

1080 PRINT TAB (8) 5 "U 10" 

1090 PRINT TAB (8) ; "J L" 

1100 PRINT TAB(S)?"M , ." 

1110 PRINT 

1120 PRINT "PRESS (ENTER) TO BEGIN."? 

1130 INPUT R* 

1140 CLS 

1149 REM *** INITIALIZE VARIABLES AND ARRAYS **« 

1150 FOR 1=0 TO 7 : READ KT* (I): NEXT I 
1160 FOR 1=0 TO 7: READ YT(I):NEXT I 
1170 C0=47S:CH=191 

1180 PRINTe965^"Z=CHANGE CHARACTER"; 

1190 PRINTillOOO, "@=CLEAR SCREEN"; 

1200 POKE 16526, 105 

1210 POKE 16527,0 

1220 PRINT CHR*(21) 

1230 GOTO 500 

2000 DATA ",",".",L,a,I,U,J,M 

2010 DATA 64,65,1,-63,-64,-65,-1,63 

VIC-20 

1 REM *** DRAWING VIC-20 ♦** 
10 GOTO 3000 

99 RE?1 *** JOYSTICK ROUTINE *** 

100 IF J=0 THEN £00 
il0 POKE 37154, i£7 

120 XT-/i=PEEK (37152) AND 128 

130 POKE 37154,255 

140 XT54=XT'^ OR (PEEK (37137) AND 127) 

150 XI=SGN(XT-/.flNDi28)-SGN(XT"/.fiND16) 

160 YI=SGN(XT>iflNDS)-SGN(XT5CfiND4) 

170 SOTO 210 

199 REM *♦* READ KEYBOARD ROUTINE ♦** 

200 XI=0:YI=05LI=0 
210 GET KE* 

220 IF KEY*=""THEN RETURN 

230 IF KE*=CHR*(133) THEN GOSUB 400 

£40 IF KE*=CHR*(134) THEN K0L=K0L+1 

£50 IF K0L>8 THEN KOL=0 

£60 IF KE*=CHR*(i35) THEN BA=BA+16 

270 IF BA> 125 THEN BA=13 

£80 IF J=l THEN RETURN 

290 IF KE*=KT«(LI) THEN YI=YT (LI) !XI=XT(LI> s RETURN 

300 LI=LI + l!lF LK8 THEN 290 

310 RETURN .'. 

399 REM *** CHANGE CHARACTER *** 

400 CK=CH+1 

410 IF CH=1£8 THEN CH=27 
420 IF CH=161 THEN CH=33 
430 IF CH=32 THEN CH=i60 
44iZl RETURN 

499 REM *** MAIN DRAWING LOOP *** 

500 IF R0>18 THEN RO=0 
510 IF RO<0 THEN R0=--18 
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520 IF CO>£S THEN CO=0 

530 IF CO<0 THEN CO=£a 

540 POKE 36879, Bfl 

550 POKE CB+CO+e£*RO, KOL 

560 POKE SB+C0+22*R0, CH 

570 GOSUB 100 

580 RO=RO-YI:CO=CO-XI 

590 GOTO 500 

2999 REM **♦ INTRODUCTION #** 

3000 PRINT CHR*<147) 

3010 PRINT "USING fl JOYSTICK (Y/N) " 

3020 GET J*: IF J*=""THEN 3020 

3030 IF J*="Y" THEN J=1:PRINT CHR*( 147) : GOTO 3160 

3040 IF J*="N" THEN J=0 

3050 PRINT CHR*(147) 

3060 PRINT "THE DIRECTION KEYS ORE" 

3070 PRINT 

3080 PRINT TflB<8)"U I 0" 

3090 PRINT TftB(8)"J L" 

3100 PRINT TftB(8)"M , 

3110 PRINT 

3120 PRINT "PRESS (SHIFT) TO BEGIN" 

3130 WRIT 653, 1 

3140 WAIT 653, 1, 1 

3150 PRINT CHR*(147) 

3153 REM *** INITIALIZE VflRIflBLES *** 

3 1 60 SB=7680 : CB=38400 s C0= 1 1 s R0= 1 

3170 Bft=29 5CH=160:POKE 650,128 

3180 FOR 1=0 TO 7:REflD KT*(I):NEXT 

3190 FOR 1=0 TO 7:REfiD XT(I)sNEXT 

3200 FOR 1=0 TO 7:REflD YT(I):NEXT 

3209 REM *** SCREEN DISPLAY ♦** 

3210 PRINT CHR*(144)CHR*<19) 
3220 FOR T=i TO 22: PRINT: NEXT T 
3230 PRINT "Fl CHANGE CHARACTER" 
3240 PRINT "F3 CHARACTER COLOR 
3250 PRINT "F5 BACKGROUND COLOR" 
3260 GOTO 500 

4000 RETURN 

5000 DATA I,U, J, M, ",",". ",L,0 
5010 DATA 0,1,1,1,0,-1,-1,-1 
5020 DATA 1,1,0,-1,-1,-1,0,1 
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BONUS PROGRAM #10 

MUSIC RECORDER 

The MUSIC RECORDER changes your computer into a computer 
tape recorder u By pressing the computer keys pictur'Bd 
undiBr notes on the screen, you make up songs « When you're 
ready to re^cord, press the key pictured -next to START 
FilECORDXNG, enter the notes of the song, then press the key 
next to PLAY BACK SONG, to hear the tune a When you're 
tired of hearing a tune, press the key pictured next to 
ERASE SONG MEMORY to get rid of the song. Up to 100 notes 
c a.n s t o v" e d a t o n e t i m e i n t h e r e c o r d e r = I f t h e n u m b e r 
exceeds 100, the note memory is erasGr?d and set at one 
again n 



Apple II and Apple He 

1 REM ^-^-^ MUSIC RECORDER APPLE ^--^^ 

10 GOTO 600 

19 REM '^^'^ PLAY NOTE ROUTINE *-^--* 

20 POKE 6 5LD(T) 
30 POKE 7,HD(T) 
40 POKE 8 5F(T) 
50 CALL SOU 

60 IF F < > 1 THEN RETURN 
70 IF C > 99 THEN 400 
80 NH(C) ^ T 
90 C •-■^ C "I" 1 
100 RETURN 

199 REM -J^-^-i^- RECORD NOTE ROUTINE '^-^-^ 

200 F •"•" 

210 FOR B '--■' 1 TO C •- 1 

220 T ^ NH(B) 
230 GOSUB 20 
240 NEXT B ' 

299 REM •^•«-5i' READ KEYBOARD ROUTINE -^^-^ 

300 T ^ 17 
310 GET N:1^ 

320 IF N:i? =^=^ KB:il>(T) THEN GOSUB 20 
330 T -^' T - 1 

340 IF T > 1 THEN 320 

350 IF H^ -'^■- "B" THEN F -^-^ 1 
360 IF.N:i!?^ ^^^^ "S'' THEN 200 
370 IF \^^ =^= "X" THEN 400 
300 GOTO 300 

399 REM '^-^-y^ ERASE NOTE ROUTINE -^-^^ 

400 FOR X - TO 100 
410 NH(X) ^ 

420 NEXT X 

430 C --^ 1 

440 GOTO 300 

599 REM '^■^'^- INITIALIZE VARIABLES •^••^••^■ 

600 HOME sSOU -^ 768 
610 X -^ 17!! C - 1 

620 DIM HD(X) ^LDCX) ,F (X) 
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630 


DIM KB$(X) ,NH(105) 




640 


FOR X = TO 17 


. 


650 


READ F < X > , HD < X ) , LD ( X ) 




660 


READ KB*(X) 




670 


NEXT X 




679 


REM **•» SCREEN DISPLAY «•»•«• 


680 


FOR CO = 7 TO 16 STEP 2 




690 


FOR RO = 2 TO 19 




700 


CI = llsC2.= 163 GOSUB 740 




710 


CI = 16; C2 = 23s GOSUB 740 




720 


CI = 235 C2 = 28 3 GOSUB 740 




730 


CI = 28: C2 = 29s GOSUB 740; 


GOTO 800 


740 


FOR CO = CI TO C2 STEP 2 




750 


FOR RO = 2 TO 13 




760 


HTAB CO: VTAB RO 




770 


INVERSE s PRINT " "; 




780 


NORMAL : PRINT " "5 




790 


NEXT RO: NEXT CO: RETURN 




800 


PRINT s HTAB 11: INVERSE s 


PRINT SPC( 


810 


NORMAL 3 HTAB 11: VTAB 1 




820 


PR I NT " C#D#EF#e# A#BC#D#EF " 




830 


VTAB 15 




840 


PR I NT TAB ( 11) " a2W3ER5T6 Y7U I 900P I " 


850 


PRINT 




860 


PRINT TAB< 9)"'B' TO BEGIN RECORDING " 


870 


PRINT 




880 


PRINT TAB< 9)"'S' TO PLAY 


back' SONG" 



18) 



890 PRINT 

900 PRINT TAB( 9)"'X' TO ERASE SONG MEMORY" 

909 REM *** POKE SOUND ROUTINE *** 

910 FOR X = SOU TO SOU + 22 
920 READ A 

930 POKE X,A 

940 NEXT X 

950 GOTO 300 

1 000 DATA 1 74 , , 238 , Q , 1 62 , , 244 ,2,155, , 252 , W , 1 45 , 1 , 4,3,138,1.15, 

1 1 DATA 1 30 , 1 , 27 , R , 1 23 , 1 , 40 ,5,1 1 6,1, 55 , T , 1 08 ., 1 , 72 ,6,1 03 , 1 , 90 , Y 

1 020 DATA 96 , 1 , 1 1 , 7 , 92 , 1 , 1 30 , U ,87,1,155,1,81,1,1 80 ,9,77,1, 200 , 

1 030 DATA 72 , 1 , 225 , , 68 , 1 , 252 , P , 65 , 2 , 30 , C 

1 040 DATA 230 , 7 , 1 66 , 6 , 1 64 ,8,1 73 , 48 ,192, 234 

1 050 DATA 234 ,-234,136, 208 , 250 , 202 , 208 , 242 

1060 DATA 198,7,208,238,96 

Atari 

1 REM *** MUSIC RECORDER ATARI *** 
10 GOTO 600 

99 P.Eh *** PLAY NOTE F-<OUTINE *•«■* 

100 IF NV(T)^-=0 THEN 300 
110 COLOR isPLOT T,7 

120 IF F=l THEN D--=--50! IF FOl THEN D~0 

1 30 SOUND , N V ( T ) , 1 4 , 1 S 

140 FOR DUR~1 TO D+SOsNEXT DUR 

150 SOUND 0,0,0,0; COLOR 

160 PLOT T,7 

170 IF FOl THEN POKE 764 , 255;: RETURN 

180 IF C>99 THEN 400 

1 90 NH ( C ) =T £ C=Ci- 1 : RETURN 

199 REM **if RECORD NOTE ROUTINE *** ■ 

200 F=0 
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210 FOR B==l TO C-1 
220 T=NH(B) 
230 eOSlJB 100 
240 NEXT B 

299 REM *** READ KEYBOARD ROUTINE *-x* 

300 T~28 
310 K=PEEK(764) 
320 IF l<=255 THEN 310 
330 IF K=B(T) THEN GOSUB 100 
340 T=T--1 

350 IF T>=9 THEN 320 
360 IF K=33 THEN F--=l 
370 IF K=23 THEN 200 
380 IF K==22 THEN 400 
390 POKE 764,255s BGTO 300 
400 FOR X=--=0 TO 100 
410 NH(X)=--^0 
420 NEXT X 
430 C=l 
440 GOTO 300 

599 REM #** INITIALIZE VARIABLES *** 

600 X=29sC=l 

609 REM **■» DIMENSION ARRAYS *** 

610 DIM NV < X ) , B ( X ) , NH ( 100) 
620 POKE 752,2 
630 GRAPHICS 3 
640 PRINT CHR$(125) 
650 FOR X=--=ll TO 28 
660 READ asNV(X)=QsREAD QsB(X)=Q 
670 NEXT X 

679 REM 

680 FOR CO^-^li TO 28 
690 READ RG,KO 
700 COL.OR KO 

710 PLOT CO, 8 ■ ■ 

720 DRAWTO CO , RO 
730 NEXT CO 

740 PRINT " , Q2W3ER5T6Y7UI9Q0P-" 
750 PRINT "SPACE BAR TO BEGIN . RECORDING" 
760 PRINT "PRESS Z TO PLAYBACK SONG" 
770 POKE 752,2 

780 PRINT "PRESS X TO ERASE SONG MEMORY"!; 
790 GOTO 300 

1 000 DATA 121, 47 , 1 1 4 , 30 , 1 08 , 46 ,, 1 02 , 26 , 96 , 42 , 9 1 , 40 , 85 , 

1 1 DATA 76 , 27 , 72 , 43 , 68 , 5 1 , 64 , 1 1 , 60 , 1 3 , 57 ^ 40 , 53 , 8 , 50 , 50 , 47 , 1 ,45,14 
1 020 DATA 1 7 , 1 ,15,2, 1 7 , 3 , 1 5 , 2 , i 7 , 1 ,17, 3 ,15,2,17,1,15, 2 ,17,3, 1 5 , ^' 
1030 DATA 17-3,15,2,17,1,15,2,17,3,17,1 

Commodore 64 

1 REM *** MUSIC RECORDER 64 *** 

10 BOTO 600 

19 REM *** PLAY NOTE ROUTINE **# 

213 POKE CB+T+9+40*!, 1 

30 POKE S0U+£4, 15 

40 POKE SOU+5, 64 



1 '">' i 



50 


POKE 


SOU+6,64 


60 


POKE 


SOU+4, 33 


70 


POKE 


S0U+1,HF(T) 


80 


POKE 


SGU,LF(T) 
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90 FOR DUR=1 TO 75 

100 NEXT DUR 

110 POKE CB+T+9+40*l,0 

120 IF FOl THEN RETURN 

130 POKE S+£A,0 

140 POKE SOU, 

150 POKE SOU+ 1,0 

160 IF 99 THEN 400 

170 NH(C)=T 

180 C=C+1 

190 RETURN 

199 REM ♦*« RECORD NOTE ROUTINE *** 

£00 F=0 

210 FOR B=l TO C-1 

£20 T=NH(B) 

230 GOSUB 20 

240 NEXT B 

299 REM ♦♦♦ READ KEYBOARD ROUTINE ♦♦* 

300 T=19:P0KE S+£4,0:PaKE SOU, 0: POKE SOU+l,i 
310 GET N*:IF N*=""THEN 300 

320 IF N*=KB*<T) THEN GOSUB 20 

330 T=T-1 

340 IF T> 1 THEN 320 

350 IF N$=CHR*(133) THEN F=l 

360 IF N*=CHR*<134) THEN £0® 

370 IF N*=CHR*(135) THEN 400 

380 IF N*=CHR*(136) THEN 500 

390 GOTO 300 

399 REM ♦*♦ ERfiSE NOTE ROUTINE ♦♦♦ 

400 FOR X=0 TO 100 
410 NH(X>=0 

420 NEXT X 

430 C=l 

440 GOTO 300 

499 REM *** CHANGE SCREEN COLOR ♦«* 

500 S=S+1 

510 IF S=19 THEN S=£ 
520 POKE SC,SC(S) 
530 POKE BC, BC(S) 
540 GOTO 300 

599 REM #♦♦ INITIALIZE VARIABLES ♦•»* 

600 CB=55£96!SB=10£4:SOU=54£7£ 
610 X=££ : C= 1 : S=2 : SC=53£8 1 s BC=53£a0 
619 REM *** DIMINSION ARRAYS *** 
6£0 DIM HF<X),LF(X),C(X), Y(X),SC(X) 
630 DIM KB*(X),BC(X),NH(i05) 

639 REM **♦ SCREEN DISPLAY *** 

640 PRINT CHR$(147) 

650 POKE SC, 1£;P0KE BC, 11 

660 FOR X=£ TO 19 

670 READ HF(X),LF<X),C<X),Y(X) 

680 READ KB*(X),SC(X),BC(X) 

690 NEXT X 

700 FOR C0=£ TO 19 

710 FOR R0=3 TO Y(C0)+1 

7£0 POKE CB+CO+9+40*RO, C<CO) 

730 POKE SB+CO+9+40*RO, 160 

740 NEXT RO 

750 NEXT CO 
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800 PRINT CHR*(19)CHR*(144) 

810 PRINT 

880 PRINT TOB(ll)"C#D#EF#G#fi#BC#D#EF" 

830 FOR X=l TO 12 

840 PRINT 

850 NEXT X 

860 PRINTTfiB (11) "W3E4RT&Y7UaiO0P+e*" 

870 PRINT 

880 PRINT 

890 PRINTTftB(9)"Fl TO BEGIN RECORDINB" 

900 PRINT 

910 PRINTTfiB(9) "F3 TO PLftY BftCK SONG" 

920 PRINT 

930 PRINTTflB(9)"F5 TO ERfiSE SONG MEMORY" 

940 PRINT 

950 PRINTTflB(9)"F7 TO CHANGE SCREEN COLORS" 

960 GOTO 300 

1000 DftTfi 16, 195, 1, 13, W, 15, 13, 17, 195,0, 11,3,9, 11 

1010 DflTfl 18,209, 8,13, E, 11, 12, 19,239,0, 11,4, 11, 13 

1020 DftTfl 21,31,2, 13, R, 10, 15, 22, 96, 5, 13, T, 11, 15 

1030 DflTfl 23, 181,0, 11,6,9, 11,25, 30,6, 13, Y, 15,9 

1040 DflTfl 26,156,0,11,7,9,14,28,49,4,13,0,14,11 

1050 DflTfl 29,223,0,11,8,12,15,31,165,3,13,1,10,10 

1060 DflTfl 33,135,1,13,0,9,13,35,134,0,11,0,10,12 

1070 DflTfl 37, 162, 8, 13, P, 12, 14,39,223, 0, 11,+, 11, 15 

1080 DflTfl 42, 62, 2, 13, §, 9, 15, 44, 193, 5, 13, *, 14, 1 1 

IBM PC 

i FEh *•«•* MUSIC RELCORDER IBM-PC *** 

10 i<e;y off 

:Z0 GOTO 600 

99 REM **•» PLAV NOTE ROUTINE **» 

1,00 ;i'.F WV<f)--0 THEN 300 ' ' 

110 LOCATE 4, Is PRINT CHR*-(2); 

120 FOR DELAY- 1 TO 10; NEXT DELAY 

130 SOUND NV<T) ,5 

140 LOCATE 4,T 

1 50 PR I NT CHR* < 32 ) ? 

160 IF FOl THEN RETURN 

170 IF 099 THEN 400 

:I79 REM *«« RECPRD NOTE *** 

180 NH';C)=T 

190 C=--C+ls RETURN 

200 F^^--0 

210 FOR B-1 TO C-1 

220 T=NH(B) ' 

230 (30SUB 100 

240 NEXT B 

299 REM **K- REAiD KEYBOARD ROUTINE *** 

300 T~-'18 

310 N*=INl<EY*!i IF N*=-^^""' THEN 300 
320 IF N-.$:^KBtrT) THEN GOE-iUB 100 

330 T-r--i 

340 IF T>30 THEN 32C' 

350 IF N*-:-CHR:$<32) THEN F-1 

360 IF Nf="7." THEN 200 

370 IF N*~"X" THEN 400 

380 GOTO 300 

399 REM K*:* ERASE NOTES ROUTINE *«•«• 
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400 FOR X":=0 TO 100 

410 ^4H(X)=0 

420 NEXT X 

430 C=l 

440 GOTO 300 

599 REM *-J*-K- INITIALIZE VARIABLES ^■^■ifr 

600 X=^49 s 1 s SCREEN O , O , O s W I DTH SO 
610 DIN NV < X ) , i<:B:f: ( X ) , IMH ( 1 00 ) 
620 CLS 

629 REN *-K-* LOAD NOTE AND KEYBOARD ARRAYS -J^-^-^- 

630 FOR X^Zl TO 48 
640 READ NV < X) ^ KBt- ( X ) 
650 NEXT X 

659 REN #-^-^ SCREEN DISPLAY ^-^J?- 

660 FOR C0-=31 TO 48 
670 READ V,CH 
630 FOR R0:^5 TO Y 
690 LOCATE ROhCO,0 
700 PRINT CHR$:(CH) 5 
710 NEXT RO 
720 NEXT CO 
730 LOCATE 5,31 

740 PRINT "C#D#EF#G#A#BC#D#EF"5 
750 LOCATE 19,31 

760 PRINT "Q2N3ER5T6Y7UI900PT "5 
770 LOCATE 21 ^26 

780 PRINT "SPACE BAR TO BEGIN RECORD 
790 LOCATE 23,26 

800 PRINT "PRESS Z TO PLAYBACK SONG" 5 
810 LOCATE 25,26 

820 PRINT "PRESS X TO ERASE SONG MENORY"^ 
830 00*10 300 

1000 DATA 262, Q, 27 7, 2, 294 hW, 3 11, 3, 330, E, 349 J< 
1010 DATA 370, 5, 392. T.. 4 15, 6, 4 40. Y, 466 .,7, 49 <1 
1020 DATA 554, 9, 587, 0,622, Oh 659, P, 698, L: 

1030 DATA 17, 17b, 14.219, 17 , 176 , 14 , 219 .. 17 , 178 , 17 . 176 
1040 DATA 14 , 219 , 17 , 1 78 , 1 4 . 219 , 1 7 , 1 76; 14 , 219 , 1 7 , 1 78 
1050 DATA 17,176,14,219,17,178,14,219,17,176,17,178 

TI-99/4A 

I REH ^'^-^ NUSIC RECORDER TI99/4A ■^■^¥. 

9 REN -^-^-^ DINENSIGN iTO TE ARRAYS **i^ 

1 Dl N H ( 1 00 ) . Q ( 26 ) , V ( 26 ) h R ( 26 ) , CH ( 1 75 ) 
20 GOTO 350 

29 REH ^^-^ PLAY NOTE ROUCINE «-*:>^ 

30 IF V<T)^:^0 TI'-IEN 180 
40 CALL HCHAR ( 3 . T , 88 ) 

50 CALL SOUND ( 1 00 , V ( T ) , ) 
60 CALL HCHAR (3, T, 33) 

69 REN -^if* RECORD NOTE *** 

70 IF FOl THEN. SO ELSE 90 
80 RETURN 

90 IF C>99 THEN 300 

100 H<C)==T 

110 C:^^C-i"l 

120 RETURN 

130 F^^O 

140 FOR B^l TO C-1 

150 T"^H(B) 
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160 


GiDSUB 30 


170 


NEXT B 


180 


T'~25 


189 


REM *** READ KEYBOARD **•» 


190 


CALL KEY(3,K,P) 


200 


IF P=0 THEN 190 


210 


IF K=Q(T)THEN 220 ELSE 230 


220 


GOSUB 30 


230 


T=T~1 


240 


IF T>6 THEN 200 


250 


li= K.=32 THEN 260 ELSE 270 


260 


F=l 


270 


IF K=83 THEN 130 


280 


IF k;=68 THEN 300 


290 


GOTO 180 


299 


REM *** ERASE NOTES *** 


300 


FOR X=0 TO 100 



310 H<X)^0 

320 NEXT X , 

330 C-i 

340 GOTO 180 

349 REH *** DEFINE CI- lARACTERS *•«•* 

350 A*--="FFFFFFFFFFFFFFFF" 
360 CALL CLEAR 

370 B'$^- " 2424FF2424FF 2424 " 

380 C-^^' " 00C324 181010101 " 

390 X:==26 

400 C=^l 

410 CALL CHAR (88, At) 

420 CALL CHAR ( 33 , A:$- ) 

430 FOR X:^^8 TO 25 

439 REM *-«-^- LOAD ARRAYS **k- 

440 READ V ( X ) , Q < X ) , CM ( X ) , R ( X ) 
450 CALL CHAR<CH<X) ,A*) 

460 NEXT X 

470 CALL CHAR(96,B:|i:; 

480 CALL CHAR ( 42 ,C^> 

490 FOR X^8 TO 16 

500 READ F,B 

510 CALL COLOR <XJ=\B) 

52U NEXT" X 

530 CALL COLOR (1,3, 3; 

539 REM ^^.^' SCREEN DISPLAY ^-^^ 

540 CALL CLEAR 

550 FRINI rAB<6) 5 "C#D#EF#G#A#eC#D#EF*' 

560 FOR X:=l 10 13^ 

570 PRINT 

580 NEXT X 

590 PRINI rAB<6) § "Q2W3ER3T6Y7UI900P1" 

600 PRINT 

610 PRINT 

620 PRINT " PRESS SPACEBAR TO RECORD" 

630 PRINT 

640 PRINT " PRESS S TO PLAY BACK SONQ' 

650 PRINT 

660 PRINT " PRESS D TO ERASE SONG" 

6 70 FOR X-^^S 10 25 

68U Cv-MA. VCTlAR < 4 , X ^ CH ( X ): ^ R < X ) ) 

690 Ne:xT X 
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700 GOTO 180 

710 DATA 262 , 81 , 104 , 1 1 , 2/7 , 50 , 97, 9, 294 , 87 , 1 1 2 , 1 1 

720 DATA 34 1,51,97,9,330,69,120,11 

730 DA r A 349 , 82 , 1 28 , 1 1 , 3 70 ,53,97,9, 392 , 84 , 1 36 , 1 1 

740 DATA 4 1 5 , 54 , 97 , 9 , 440 , 89 , 1 44 , 1 1 , 466 , 55 , 97 , 9 



5 , 1 52 , 1 1 , 523 , 73 , 1 04 ,11, 554 ,57,97,9 



750 DATA 494, S; 

760 DATA 587 ,79,112,11, 622 , 48 , 97 , 9 , 659 , 80 , 1 20 , 1 1 

770 DA r A 698,47,128,11 

780 DATA 16, 16,2, 1 ,5,5, 7,7,8,8, 11 , 11 , 14, 14, 15, 15, 10, 10 

TRS-80 Color Computer 

1 REM ♦»* MUSIC RECORDER TRS-Se COLOR ♦*♦ 
10 GOTO 600 

99 REM ♦*» PLOY NOTE ROUTINE ♦*♦ 

100 IF NV(T)=0 THEN 300 
PRINT @T,CHR*( 143+16); 
SOUND NV<T),3 
PRINT & T, CHR*(143) ; 

T,CV*(T) ; 
THEN RETURN 
THEN 400 



110 

120 
130 
140 
150 
160 
170 
180 
190 
199 

200 

210 
220 
230 
240 
299 

300 

310 
320 
330 
340 
350 
360 
370 
380 
399 

400 

410 
420 
430 
440 
599 

600 

609 
610 
620 
630 
640 
650 
699 

700 

710 
720 
730 



THEN 300 
GOSUB 100 



F=l 



PRINT e 

IF FOl 

IF 99 

NH(C)=T 

C=C+1 

RETURN 

REM «** RECORD NOTE ROUTINE ♦♦♦ 

F=0 

FOR B=l TO C-1 

T=NH(B) 

GOSUB 100 

NEXT B 

REM ♦*♦ REfiD KEYBOARD ROUTINE ♦*♦ 

T=24 

N*=INKEY*!lF N*="' 

IF N*=KB*(T) THEN 

T=T-1 

IF T>5 THEN 320 

IF N*=CHR*(32> THEN 

IF Ni="Z" THEN 200 

IF N*="X" THEN 400 

GOTO 300 

REM ♦*♦ ERfiSE NOTE ROUTINE ♦*♦ 

FOR X=0 TO 100 

NH(X)=0 

NEXT X 

C=l 

GOTO 300 

REM *** INITIALIZE VflRIflBLES **» 

X=25:C=1 

REM ♦»♦ DIMENSION ARRflYS ♦♦♦ 

DIM CV*(X),KB*(X),NH(100),NV(X) 

CLS 

FOR X=7 TO 24 

READ NV(X),CV*(X),KB*(X) 

NEXT X 

REM ♦*♦ SCREEN DISPLAY ♦*♦ 

FOR C0=7 TO 24 

PRINT @C0, CV*(CO> ? 

PRINT eC0+224,KB*(C0); 

NEXT CO 



142 



10 AWESOME PROGRAMS FROM K-POWER 



740 


READ X,Y,KD 






750 


IF KO=0 THEN ft=l£8 






760 


IF KOO0 THEN fi=143 






770 


IF X=-l THEN 820 






780 


I^OR RO=X TO Y STEP 3£ 






790 


PRINT@RO, CHR* ( A+KO) ? 






800 


NEXT RO 






810 


GOTO 740 






820 


PRINT@321, "SPACE BAR TO BEGIN RECORDING"; 


830 


PRINTe385, "PRESS Z TO 


PLAYBACK SONG"; 


840 


PRINTe44g, "PRESS X TO 


ERASE 


SONG MEMORY"; 


850 


GOTO 300 






1000 


DATA 89, C, Q, 99, #, 2, 108, D, W, 


117.#,3,1-25»E,E 


1010 


DATA 133,F, R, 140,#,5, 


147,6, 


T, 153, #,6, 159, A, Y 


1020 


DATA 165, #,7, 170,B,U, 


176, C, 


I, 180, #,9 


1030 


DATA 185,D,0, 189,#,0, 


193, E, 


P, 197,F,@ 


1040 


DATA 39, 199, 16, 40, 168, 0, 41, 


201,32 


1050 


DATA 42, 170, 0, 43, 203, 


48, 44, 


204, 64 


1060 


DATA 45, 173, 0, 46, 206, 


80, 47, 


175,0 


1070 


DATA 48, 208, 96, 49, 177 


', 0, 50, 


210,112 


1080 


DATA 51,211,16,52,180,0,53, 


213,32 


1090 


DATA 54,182,0,55,215, 


48, 56, 


216,64 


1100 


DATA -1,-1,-1,-1,-1,- 


■1 





VK-ao 

1 REM ♦♦* MUSIC RECORDER VIC-20 ♦*» 
10 GOTO 600 

99 REM **♦ PLAY NOTE ROUTINE ♦*♦ 

100 PGK£ CB+T+2£*0, 1 

li0 POKE V, 15: POKE S3, NV(T) 
120 FOR DUR=1 TO 100: NEXT DUR 
130 POKE CB+T+22*0, 
150 IF FOi THEN RETURN 
160 IF 99 THEN 400 
170 NK(C)=T 
180 C=C+1 
190 RETURN 

199 REM «♦* RECORD NOTE ROUTINE ♦** 

200 F=0 

£10 FOR B=l TO C-i 

220 T=NH<B) 

230 GOSUB 100 

£40 NEXT B 

£99 REM #*♦ READ KEYBOARD ROUTINE ♦*♦ 

300 T=ig:POKE S3, 

310 GET N*:IF N*=""THEN 300 

320 IF N*=KB*(T) THEN GOSUB 10(3 

330 T=T-1 

340 IF T>1 THEN 320 

350 IF N*=CHR*(133) THEN F=i 

360 IF N*=CHR*(134) THEN 200 

370 IF N*=CHR*<135> THEN 400 

380 IF N«=CHR«(136) THEN 500 



390 


GOTO 300 








399 


REM *** 


ERASE NOTE 


ROUTINE 


**« 


400 


FOR X=0 


TO 


100 






410 


NH(X)=0 










420 


NEXT X 










430 


C=l 
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440 GOTO 300 

499 REM *** CHANGE SCREEN COLOR *#» 

500 S=S+1 

510 IF 5=19 THEN S=2 
5£0 POKE SC, SC(S) 
530 GOTO 300 

599 REM *»♦ INITIALIZE VflRIfiBLES ♦** 

600 CB=38400!SB=7680: 33*36876 

6 1 V=36878 ; 30=36879 : X=££ : C= 1 : 3=2 
630 DIM NV(X),BC(X),Y<X),SC(X) 
630 DIM CV(X)^KB*(X),NH(100),NC<X) 

639 REM **♦ 3CREEN DISPLAY *** 

640 PRINT CHR*(147) 
650 POKE 3C, 190 
660 FOR X=£ TO 19 

670 READ NC(X),NV(X),BC(X),Y(X) 

680 READ CV<X),KB*(X),SC(X) 

690 NEXT X 

700 FOR C0=£ TO 19 

710 FOR R0=1 TO Y(C0)+1 

720 POKE CB+C0+2£*R0, BC(CO) 

730 POKE SB+C0+22*R0, 160 

740 POKE CB+C0+2£*9, 

750 POKE SB+C0+22*9, CV(CO) 

760 POKE CB+CD+££*0. 

770 POKE SB+GO+£2*0,NC(CO) 

780 NEXT RO 

790 NEXT CO 

800 PRINT CHR*(ig)CHR*(144) 

810 FOR X=l TO 11 

820 PRINT:NEXT 

830 PRINT "Fl TO BEGIN RECORDING" 

840 PRINTS PRINT 

850 PRINT "F3 TO PLAY BACK" 

860 PRINT: PRINT 

870 PRINT "F5 TO ERA3E MEMORY" 

880 PRINT: PRINT 

890 PRINT "F7 TO CHANGE COLORS" 

900 GOTO 300 

1000 DATA 3, 195, 1,6, £3, W, 159, 35, 199, 0, 5, 51, 3, 173 

1010 DATA 4, £01, 7, 6, 5, E, 174, 35, £03,0, 5, 5£, 4, 175 

10£0 DATA 5, £07,2, 6, 18, R, 188, 6, £10, 5,6, £0,T, 189 

1030 DATA 35,212, 0,5, 54,6, 190,7,215, 6,6,25, Y, £03 

1040 DATA 35, £17, 0,5,55, 7, £04, 1,219, 4, 6,21, U, 205 

1050 DATA 35, 221, 0,5, 56,8, 218, 2, £23, 3, 6, 9, 1.219 

1060 DATA 3,225,1,6,15,0,220,35,227,0,5,48,0,253 

1070 DATA 4, 2£8, 7, 6, 16, P, 234, 35, 229, 0, 5, 43, +, 235 

1080 DATA 5^£3i,£, 6,0,@,£5£,6, £3£,5,6, 4£,*,£50 
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